A120764 Number of terms of A007632 less than or equal to 10^n.
2, 6, 8, 11, 13, 19, 20, 27, 28, 31, 33, 37, 39, 49, 50, 52, 54, 61, 63, 65, 68, 70, 70, 74, 74, 80, 81, 87, 88, 93, 94, 96, 96, 99, 102, 108, 112, 117, 118, 121, 122
Offset: 0
Examples
a(4)=13 because {0, 1, 3, 5, 7, 9, 33, 99, 313, 585, 717, 7447, 9009} are all the terms of A007632 less than 10^4.
Crossrefs
Cf. A007632.
Programs
-
Mathematica
lst = { (* the list of terms from A007632 *) }; Table[ Length@ Select[lst, # <= 10^n &], {n, 0, 33}]
Extensions
a(34) - a(40) from Robert G. Wilson v, Jun 19 2014
Comments