OFFSET
1,2
MAPLE
A057249:=n->`if`(type((5^n+4^n+3^n+2^n)/n, integer), n, NULL); seq(A057249(n), n=1..10^6); # Wesley Ivan Hurt, Mar 09 2014
MATHEMATICA
Select[ Range[ 10^6 ], Mod[ PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
Select[Range[15*10^5], Mod[Total[PowerMod[Range[2, 5], #, #]], #]==0&] (* Harvey P. Dale, Mar 01 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2000
EXTENSIONS
a(35)-a(39) from Wesley Ivan Hurt, Mar 09 2014
STATUS
approved