|
%I #10 Jun 09 2023 21:24:15
%S 1,2,1,3,4,3,4,6,8,12,13,18,24,33,39,52,67,88,113,155,211,264,331,455,
%T 596,762,1000,1288,1688,2222,2884,3754,4915,6364,8300,10845,14138,
%U 18372,23966,31254,40821,53113,69336,90273,117678,153518,199990,260671,340007
%N Number of 1's in n-th term of A007651.
%H Peter J. C. Moses, <a href="/A022466/b022466.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%Y Cf. A007651.
%K nonn
%O 1,2
%A _Clark Kimberling_
|
