A022472 Number of 1's in n-th term of A022470.

0, 1, 3, 2, 3, 6, 6, 6, 12, 13, 12, 23, 29, 33, 50, 69, 76, 108, 150, 172, 226, 323, 385, 518, 698, 884, 1146, 1539, 1961, 2537, 3378, 4341, 5628, 7455, 9662, 12530, 16453, 21436, 27807, 36306, 47519, 61496, 80491, 105100, 136535, 178254, 232820, 302713

Offset

1,3

Links

Peter J. C. Moses, Table of n, a(n) for n = 1..1000

Mathematica

p={2, 5, -6, 1, -6, -5, 19, -10, 0, -13, 3, 13, 13, -12, 0, -11, 2, -1, 17, 12, -8, -12, -21, 6, 23, -13, -9, 19, -17, 16, -17, -6, 24, 35, -30, -14, 2, -33, 21, 18, -12, 16, -12, -3, 5, -2, -3, 13, 10, -21, -1, -8, -3, 15, 1, 1, 2, -4, -1, 0, 1, -3, 3, 1, -2, -2, -1, 1, 3, 2, -2, -1, 0}; q={-6, 9, -9, 18, -16, 11, -14, 8, -1, 5, -7, -2, -8, 14, 5, 5, -19, -3, 6, 7, 6, -16, 7, -8, 22, -17, 12, -7, -5, -7, 8, -4, 7, 9, -13, 4, 6, -14, 14, -19, 7, 13, -2, 4, -18, 0, 1, 4, 12, -8, 5, 0, -8, -1, -7, 8, 5, 2, -3, -3, 0, 0, 0, 0, 2, 1, 0, -3, -1, 1, 1, 1, -1}; gf=Fold[x #1+#2&, 0, p]/Fold[x #1+#2&, 0, q]; CoefficientList[Series[gf, {x, 0, 99}], x] (* Peter J. C. Moses, Jun 23 2013 *)

Crossrefs

Sequence in context: A368102 A336749 A214297 * A014679 A208454 A187499

Adjacent sequences: A022469 A022470 A022471 * A022473 A022474 A022475

Keyword

nonn

Author

Clark Kimberling

Status

approved