|
|
A121161
|
|
a(n) is the nearest integer to log(lcm(1,2,3,...,10^n)).
|
|
0
|
|
|
0, 8, 94, 997, 10013, 100052, 999587, 9998539, 99998243, 1000001596, 10000042120
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
Andrew Granville and Greg Martin, Prime Number Races, arXiv:math/0408319 [math.NT], 2004 (see page 11).
|
|
FORMULA
|
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
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|