Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
Table of n, a(n) for n=1..48.
x=31; Select[ Range[ 2000 ], PowerMod[ #, x-1, x^2 ]==1& ]
Sequence in context: A060309 A101111 A129823 * A105993 A036269 A036462
Adjacent sequences: A056032 A056033 A056034 * A056036 A056037 A056038
Robert G. Wilson v, Jun 08 2000