OFFSET
1,5
EXAMPLE
n=25,p(25)=97, sigma(25)=31, Mod[97,31]=4=a[25]
MATHEMATICA
Table[Mod[Prime[w], DivisorSigma[1, w]], {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 15 2002
STATUS
approved