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

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

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 *)