A022466 Number of 1's in n-th term of A007651.

1, 2, 1, 3, 4, 3, 4, 6, 8, 12, 13, 18, 24, 33, 39, 52, 67, 88, 113, 155, 211, 264, 331, 455, 596, 762, 1000, 1288, 1688, 2222, 2884, 3754, 4915, 6364, 8300, 10845, 14138, 18372, 23966, 31254, 40821, 53113, 69336, 90273, 117678, 153518, 199990, 260671, 340007

Offset

1,2

Links

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

Mathematica

p={10, -3, 15, -13, 26, -10, -18, -33, 21, -3, 9, -22, 40, 8, 12, -52, -19, 73, 38, 5, 14, -25, -35, -20, -25, 53, 29, 4, -91, -43, 42, 18, 36, -5, -99, 10, 7, 55, 44, -44, -53, -5, 15, 47, -19, -23, 13, 21, 18, -55, -39, 15, 35, 36, -7, -23, -9, -3, 3, 2, 1, 2, 6, 6, -2, -9, -5, 2, 7, 3, -1, -1, -2, -2, -1, 0, 2, 1}; q={-6, 3, -6, 12, -4, 7, -7, 1, 0, 5, -2, -4, -12, 2, 7, 12, -7, -10, -4, 3, 9, -7, 0, -8, 14, -3, 9, 2, -3, -10, -2, -6, 1, 10, -3, 1, 7, -7, 7, -12, -5, 8, 6, 10, -8, -8, -7, -3, 9, 1, 6, 6, -2, -3, -10, -2, 3, 5, 2, -1, -1, -1, -1, -1, 1, 2, 2, -1, -2, -1, 0, 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 24 2013 *)

Crossrefs

Cf. A007651.

Sequence in context: A301453 A278340 A324749 * A144254 A133310 A362563

Adjacent sequences: A022463 A022464 A022465 * A022467 A022468 A022469

Keyword

nonn

Author

Clark Kimberling

Status

approved