A022472 - OEIS

%I #8 Jun 27 2013 13:07:42

%S 0,1,3,2,3,6,6,6,12,13,12,23,29,33,50,69,76,108,150,172,226,323,385,

%T 518,698,884,1146,1539,1961,2537,3378,4341,5628,7455,9662,12530,16453,

%U 21436,27807,36306,47519,61496,80491,105100,136535,178254,232820,302713

%N Number of 1's in n-th term of A022470.

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

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

%K nonn

%O 1,3

%A _Clark Kimberling_