OFFSET
1,2
MATHEMATICA
Do[ If[ Mod[ PowerMod[ 6, n, n ] + 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[16000], Divisible[Total[Range[6]^#], #]&] (* Harvey P. Dale, Jun 06 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 25 2000
STATUS
approved