OFFSET
1,2
MATHEMATICA
Select[Range[1000000], Divisible[Total[PowerMod[Range[5, 12], #, #]], #]&] (* Harvey P. Dale, Mar 28 2012 *)
PROG
(Python)
[n for n in range(1, 20000000) if sum(pow(k, n, n) for k in range(5, 13)) % n == 0] # Lucas A. Brown, Nov 30 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
EXTENSIONS
a(32)-a(42) from Lucas A. Brown, Nov 30 2022
STATUS
approved