OFFSET
1,1
FORMULA
EXAMPLE
MATHEMATICA
s=0; Do[s=s+sp[n]; If[IntegerQ[n/25000], Print[n]]; If[IntegerQ[s/n], Print[{n, s, s/n}]], {n, 2, 4000000}] where sp[n]=A008472(n).
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 15 2001
EXTENSIONS
a(10)-a(19) from Donovan Johnson, Nov 22 2009
a(20)-a(23) from Donovan Johnson, Aug 31 2010
STATUS
approved
