A029716 Partial sums of Kempner numbers A002034.
1, 3, 6, 10, 15, 18, 25, 29, 35, 40, 51, 55, 68, 75, 80, 86, 103, 109, 128, 133, 140, 151, 174, 178, 188, 201, 210, 217, 246, 251, 282, 290, 301, 318, 325, 331, 368, 387, 400, 405, 446, 453, 496, 507, 513, 536, 583, 589, 603, 613, 630, 643, 696, 705, 716, 723, 742
Offset: 1
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
- Li Hailong and Zhao Xiaopeng, On the Smarandache function and the k-th roots of a positive integer, 2004, p. 119.
Crossrefs
Programs
-
Mathematica
Accumulate[Table[found = 0; m = 1; While[found == 0, If[IntegerQ[m!/n], found = 1, m++]]; m, {n, 1, 100}]] (* Vaclav Kotesovec, Jul 29 2021 *)
Formula
a(n) ~ Pi^2 * n^2 / (12 * log(n)) [Li Hailong and Zhao Xiaopeng, 2004]. - Vaclav Kotesovec, Jul 29 2021
Extensions
More terms from Vaclav Kotesovec, Jul 29 2021
Comments