OFFSET
1,1
COMMENTS
a(14) > 41000. - Michael S. Branicky, Mar 25 2023
MATHEMATICA
ParallelMap[If[PrimeQ[11^(#+7) + 7^(#+5) + 5^(#+3) + 3^(#+2) + 2^(#+1) + 1], #, Nothing] &, Range@8000]
PROG
(PARI) is(n) = ispseudoprime(11^(n+7) + 7^(n+5) + 5^(n+3) + 3^(n+2) + 2^(n+1) + 1) \\ Felix Fröhlich, Mar 06 2019
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Mikk Heidemaa, Feb 24 2019
STATUS
approved