OFFSET
1,3
COMMENTS
Next term, if it exists, is greater than 30000. - Vaclav Kotesovec, Jan 26 2016
EXAMPLE
k=3: 2^3+3^3+5^3+3 = 163.
MATHEMATICA
Select[Range[0, 2000], PrimeQ[2^# + 3^# + 5^# + #] &] (* Vaclav Kotesovec, Jan 25 2016 *)
PROG
(PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(2^n + 3^n + 5^n + n), print1(n, ", "))); \\ Altug Alkan, Jan 25 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Emre APARI, Jan 25 2016
EXTENSIONS
a(7) from Vaclav Kotesovec, Jan 25 2016
STATUS
approved