A022475 Sum of digits in n-th term of A022470.

2, 3, 5, 7, 10, 15, 20, 25, 35, 45, 55, 72, 94, 122, 160, 215, 278, 362, 482, 617, 797, 1047, 1354, 1773, 2321, 3028, 3948, 5165, 6724, 8751, 11427, 14859, 19347, 25255, 32928, 42926, 55971, 73036, 95127, 123982, 161739, 210577, 274586, 358046, 466560, 608330

Offset

1,1

Links

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

Mathematica

p={2, 6, -5, -1, -17, 11, -9, 4, -13, 6, 5, 15, 1, 13, 2, -25, -24, 29, 28, 14, -43, -42, 26, 22, 14, -36, -5, -1, -10, 2, 13, 24, 56, -21, -51, -22, -16, 3, 27, 3, 30, 10, -19, -27, -30, 22, 29, 29, -3, -47, -3, -6, -2, 15, 3, 22, 4, -11, -12, -7, 3, 2, 2, 1, 1, 0, -2, -2, 3, 3, 0, -1, -2}; 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: A082531 A291298 A092021 * A330937 A011972 A338553

Adjacent sequences: A022472 A022473 A022474 * A022476 A022477 A022478

Keyword

nonn,base

Author

Clark Kimberling

Status

approved