|
| |
| |
|
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Terms at positions 2^k is found in A107948.
|
|
|
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
| Cf. A107946, A107948.
Sequence in context: A081830 A117517 A098491 * A120768 A002384 A096176
Adjacent sequences: A107944 A107945 A107946 * A107948 A107949 A107950
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), May 28 2005
|
| |
|
|
