OFFSET
1,2
COMMENTS
This sequence is infinite as it contains 7^n. - David A. Corneth, May 06 2021
MAPLE
q:= k-> is(0=11&^k+7&^k+5&^k+3&^k+2&^k mod k):
select(q, [$1..100000])[]; # Alois P. Heinz, May 06 2021
MATHEMATICA
q[k_] := Divisible[Plus @@ (PowerMod[#, k, k] & /@ {2, 3, 5, 7, 11}), k]; Select[Range[10^6], q] (* Amiram Eldar, May 06 2021 *)
PROG
(PARI) is(n) = lift(Mod(11, n)^n + Mod(7, n)^n + Mod(5, n)^n + Mod(3, n)^n + Mod(2, n)^n) == 0 \\ David A. Corneth, May 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 06 2021
EXTENSIONS
a(24)-a(37) from Alois P. Heinz, May 06 2021
STATUS
approved