OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
(*1*) Table[PowerMod[n, 3, Prime[n]^2], {n, 100}]
(*2*) PowerMod[ #, 3, Prime[ # ]^2]&/@Range[100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 07 2009
STATUS
approved