A022466 Number of 1's in n-th term of A007651.

1, 2, 1, 3, 4, 3, 4, 6, 8, 12, 13, 18, 24, 33, 39, 52, 67, 88, 113, 155, 211, 264, 331, 455, 596, 762, 1000, 1288, 1688, 2222, 2884, 3754, 4915, 6364, 8300, 10845, 14138, 18372, 23966, 31254, 40821, 53113, 69336, 90273, 117678, 153518, 199990, 260671, 340007

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A007651.

Programs

Mathematica

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