OFFSET
1,2
COMMENTS
a(13) > 9000. - Tyler NeSmith, Jul 26 2021
MATHEMATICA
Select[Range[5000], PrimeQ[#^11 + 11*# + 11^#]&]
PROG
(PARI) is(n)=ispseudoprime(n^11+11*n+11^n) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
nonn,more,changed
AUTHOR
Vincenzo Librandi, Jan 07 2013
EXTENSIONS
a(10)-a(12) from Tyler NeSmith, Jul 26 2021
a(13)-a(15) from Michael S. Branicky, Jan 13 2023
a(16)-a(17) from Michael S. Branicky, Apr 22 2023
a(18) from Michael S. Branicky, Sep 19 2024
STATUS
approved