OFFSET
1,1
FORMULA
EXAMPLE
MATHEMATICA
s=0; Do[s=s+lg[n]; If[IntegerQ[n/25000], Print[n]]; If[IntegerQ[s/n], Print[{n, s, s/n}]], {n, 2, 2000000}] where lg[n]=A001414(n).
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 15 2001
EXTENSIONS
a(21)-a(29) from Donovan Johnson, Apr 25 2010
a(30)-a(31) from Donovan Johnson, Jun 11 2011
a(32) from Donovan Johnson, Feb 26 2014
STATUS
approved