OFFSET
1,2
COMMENTS
It appears that all numbers of the form 2*17^m are present.
MATHEMATICA
Select[ Range[ 350000000], PowerMod[3, #^3, # ] +1 == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 02 2004
STATUS
approved
