OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[10000], IntegerQ[(PowerMod[7, #, #^2 ]-1)/#^2 ]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jan 05 2007
STATUS
approved