[seqfan] Re: Knuth's latest fascicle

[Peter Luschny]

NJAS> I scanned it and saw the following sequences ... page 19 Eq 97

Looks like A182105.

With Maple, Knuth:

with(Bits):Settings(defaultbits=32):
P := proc(n) option remember; local u, v;
if n = 1 then RETURN((1,1)) fi;
u := P(n-1)[1]; v:=P(n-1)[2];
if And(u,-u) = v then (u+1,1) else (u,2*v) fi end:
S := n -> P(n)[2]; seq(S(i),i=1..200);

With Maple, Charles R Greathouse IV:

A182105_list := proc(n) local L,m,k; L := NULL;
for m from 1 to n do for k from 0 to padic[ordp](m, 2) do
L := L,2^k od od; L end: A182105_list(102);