OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
x=15; Select[ Range[ 50000 ], PowerMod[ #, x-1, x^3 ]==1& ]
Select[Range[31000], PowerMod[#, 14, 3375]==1&] (* Harvey P. Dale, Nov 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 08 2000
STATUS
approved