A022472 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

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

(list; graph; refs; listen; history; text; internal format)

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