OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
Do[ If[ Mod[ PowerMod[ 5, n, n ] + PowerMod[ 4, n, n ] + PowerMod[ 3, n, n ] + PowerMod[ 2, n, n ] + 1, n ] == 0, Print[ n ] ], {n, 1, 10^6} ]
Select[Range[20000], Mod[Total[PowerMod[Range[0, 5], #, #]], #]==0&] (* Harvey P. Dale, Oct 09 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 25 2000
STATUS
approved