This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A343977 #33 May 06 2021 10:34:17 %S A343977 1,2,4,7,26,49,338,343,2401,4394,7076,15043,16807,17764,57122,117649, %T A343977 226723,241484,295687,742586,818974,823543,826973,1456511,2040506, %U A343977 2806769,3472189,5764801,6321233,9653618,32036249,40353607,89758063,107884133,125497034,126090551,132590423 %N A343977 Numbers k such that k | 11^k + 7^k + 5^k + 3^k + 2^k. %C A343977 This sequence is infinite as it contains 7^n. - _David A. Corneth_, May 06 2021 %p A343977 q:= k-> is(0=11&^k+7&^k+5&^k+3&^k+2&^k mod k): %p A343977 select(q, [$1..100000])[]; # _Alois P. Heinz_, May 06 2021 %t A343977 q[k_] := Divisible[Plus @@ (PowerMod[#, k, k] & /@ {2, 3, 5, 7, 11}), k]; Select[Range[10^6], q] (* _Amiram Eldar_, May 06 2021 *) %o A343977 (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 %Y A343977 Cf. A000420, A045576, A220170. %K A343977 nonn %O A343977 1,2 %A A343977 _Zak Seidov_, May 06 2021 %E A343977 a(24)-a(37) from _Alois P. Heinz_, May 06 2021