OFFSET
1,2
COMMENTS
a(4), if it exists, is greater than 50000. - Michael S. Branicky, Mar 31 2023
MATHEMATICA
Select[Range[0, 2000], PrimeQ[1 + 2^# + 3^# + 5^#] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(1 + 2^n + 3^n + 5^n), print1(n, ", "))); \\ Altug Alkan, Jan 25 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vaclav Kotesovec, Jan 25 2016
EXTENSIONS
a(4) from Michael S. Branicky, Nov 03 2024
STATUS
approved