%I #27 Apr 23 2023 09:08:46
%S 1,15,18,167,684,698,1642,3691,4245,5370,6238,6926,9646,10656,10999,
%T 11868,14188
%N Numbers k such that k^11 + 11*k + 11^k is prime.
%C a(13) > 9000. - _Tyler NeSmith_, Jul 26 2021
%t Select[Range[5000], PrimeQ[#^11 + 11*# + 11^#]&]
%o (PARI) is(n)=ispseudoprime(n^11+11*n+11^n) \\ _Charles R Greathouse IV_, Jun 06 2017
%Y Cf. A220653.
%K nonn,more
%O 1,2
%A _Vincenzo Librandi_, Jan 07 2013
%E a(10)-a(12) from _Tyler NeSmith_, Jul 26 2021
%E a(13)-a(15) from _Michael S. Branicky_, Jan 13 2023
%E a(16)-a(17) from _Michael S. Branicky_, Apr 22 2023
|