login
Sum of digits in n-th term of A022470.
1

%I #10 Jun 27 2013 13:13:51

%S 2,3,5,7,10,15,20,25,35,45,55,72,94,122,160,215,278,362,482,617,797,

%T 1047,1354,1773,2321,3028,3948,5165,6724,8751,11427,14859,19347,25255,

%U 32928,42926,55971,73036,95127,123982,161739,210577,274586,358046,466560,608330

%N Sum of digits in n-th term of A022470.

%H Peter J. C. Moses, <a href="/A022475/b022475.txt">Table of n, a(n) for n = 1..1000</a>

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

%K nonn,base

%O 1,1

%A _Clark Kimberling_