OFFSET
1,1
EXAMPLE
n=8: a(8)=32 since Sigma[32]=63,Pi[32]=11, Mod[63,11]=8.
MATHEMATICA
t=Table[0, {100}]; Do[s=Mod[DivisorSigma[1, n], PrimePi[n]]; If[s<101&&t[[s]]==0, t[[s]]=n], {n, 2, 10000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 05 2002
STATUS
approved