OFFSET
1,1
MATHEMATICA
Do[s=n*DivisorSigma[0, n]-DivisorSigma[1, n]; If[PrimeQ[s], Print[{n, s}]; ta[[u]]=n; tb[[u]]=s; u=u+1], {n, 1, 1000000}]; ta
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 15 2004
STATUS
approved