|
Search: id:A121161
|
|
|
| A121161 |
|
Nearest integer to log(LCM[1,2,3,...,10^n]). |
|
+0
1
|
|
| 0, 8, 94, 997, 10013, 100052, 999587, 9998539, 99998243
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
For asymptotics see A003418.
a(n)=Sum_{i=1..PrimePi(10^n)} log(p_i^e_i), where e is the maximum exponent such that p^e<10^n. - Robert G. Wilson v, Aug 16 2006
|
|
MATHEMATICA
|
f[n_] := Block[{s = 0, i = 1, j = PrimePi[10^n], m = 10^n}, While[i <= j, p = Prime@i; s = s + N[Floor[ Log[p, m]]Log[p], 12]; i++ ]; Round@s]; Do[ Print[f@n], {n, 0, 8}] - Robert G. Wilson v, Aug 16 2006
|
|
CROSSREFS
|
Cf. A003418.
Adjacent sequences: A121158 A121159 A121160 this_sequence A121162 A121163 A121164
Sequence in context: A099291 A087579 A122419 this_sequence A098269 A010565 A080208
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Lekraj Beedassy (blekraj(AT)yahoo.com), Aug 13 2006
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v, Aug 16 2006
|
|
|
Search completed in 0.002 seconds
|
