OFFSET
1,7
MATHEMATICA
f[n_] := Mod[Prime@ n^2, n]; Array[f, 75]
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 19 2010
STATUS
approved