A093774 Smallest integers at which the value of truncated Mertens function equals n!.
1, 6, 21, 93, 698, 5377, 48198, 483817, 5231438, 61160870, 774696437, 10552025533, 153901234789
Offset: 1
Programs
-
Mathematica
s = 0; k = 1; Do[ While[s = s + MoebiusMu[k]; s + PrimePi[k] < n!, k++ ]; Print[k]; k++, {n, 10}] (* Robert G. Wilson v, Apr 30 2004 *)
Extensions
a(9)-a(10) from Robert G. Wilson v, Apr 30 2004
a(11)-a(13) from Donovan Johnson, Jun 21 2012
Comments