OFFSET
1,2
MATHEMATICA
fQ[n_] := PrimeQ@ PowerMod[2, 2 n - 1, 2 n + 1]; Select[ Range@ 180, fQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 03 2011
STATUS
approved