|
|
|
|
1, 2, 3, 5, 6, 8, 11, 16, 17, 19, 22, 27, 33, 41, 52, 68, 69, 71, 74, 79, 85, 93, 104, 120, 137, 156, 178, 205, 238, 279, 331, 399, 400, 402, 405, 410, 416, 424, 435, 451, 468, 487, 509, 536, 569, 610, 662, 730, 799, 870, 944, 1023, 1108, 1201, 1305, 1425, 1562
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Terms at positions 2^k is found in A107948.
|
|
LINKS
|
|
|
MATHEMATICA
|
Accumulate@Nest[Join[#, Accumulate@#] &, {1}, 7] (* Ivan Neretin, Jan 31 2018 *)
|
|
PROG
|
(PARI) {a(n)=local(A=[1, 1], B=[1]); for(i=1, #binary(n), B=concat(B, vector(#B, k, polcoeff(Ser(A)/(1-x), #B+k-1))); A=concat(A, B); ); B[n]}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|