|
| |
|
|
A118896
|
|
Number of powerful numbers <= 10^n.
|
|
1
| |
|
|
1, 4, 14, 54, 185, 619, 2027, 6553, 21044, 67231, 214122, 680330, 2158391, 6840384, 21663503, 68575557, 217004842, 686552743, 2171766332, 6869227848, 21725636644, 68709456167, 217293374285, 687174291753, 2173105517385, 6872112993377, 21731852479862, 68722847672629, 217322225558934, 687236449779456, 2173239433013146
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| These numbers agree with the asymptotic formula c*sqrt(x), with c=2.1732...(A090699). - T. D. Noe (noe(AT)sspectra.com), May 09 2006
Filaseta & Trifonov write that a result of Bateman & Grosswald (1958) implies that the asymptotic expansion of the number of powerful numbers up to x is zeta(3/2)/zeta(3) * x^1/2 + zeta(2/3)/zeta(2) * x^1/3 + o(x^1/6). This approximates the series very closely: up to a(24), all absolute errors are less than 75. - Charles R Greathouse IV, Sep 23 2008
|
|
|
LINKS
| Michael Filaseta and Ognian Trifonov, The distribution of squarefull numbers in short intervals, Acta Arithmetica 67 (1994), pp. 323-333.
Paul T. Bateman and Emil Grosswald, On a theorem of Erdös and Szekeres, Illinois J. Math. 2:1 (1958), p. 88-98.
Eric Weisstein's World of Mathematics, Powerful Number
Charles R Greathouse IV, Home Page [in lieu of email address]
Charles R Greathouse IV, Table of n, a(n) for n = 0..32
|
|
|
MATHEMATICA
| nMax=10^12; lst={}; Do[lst=Join[lst, i^3 Range[Sqrt[nMax/i^3]]^2], {i, nMax^(1/3)}]; lst=Union[lst]; k=1; Table[While[lst[[k]]<10^n, k++ ]; If[lst[[k]]==10^n, k, k-1], {n, 0, 12}] - T. D. Noe (noe(AT)sspectra.com), May 09 2006
|
|
|
PROG
| (PARI) a(n)=n=10^n; sum(k=1, floor((n+.5)^(1/3)), if(issquarefree(k), sqrtint(n\k^3))) \\ Charles R Greathouse IV, Sep 23 2008
|
|
|
CROSSREFS
| Cf. A001694, A090699.
Sequence in context: A162482 A000651 A192247 * A145211 A060898 A180142
Adjacent sequences: A118893 A118894 A118895 * A118897 A118898 A118899
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), May 05, 2006
|
|
|
EXTENSIONS
| More terms from T. D. Noe (noe(AT)sspectra.com), May 09 2006
a(13)-a(24) from Charles R Greathouse IV, Sep 23 2008
a(25)-a(29) from Charles R Greathouse IV, May 30 2011
a(30) from Charles R Greathouse IV, May 31 2011
|
| |
|
|
