
OFFSET

1,1


COMMENTS

The next term, 5^(335)+8, is too large to include.


LINKS



MAPLE

a:=proc(n) if isprime(5^n+8)=true then [n, 5^n+8] else fi end: seq(a(n), n=1..400); # yields also the value of n


MATHEMATICA

a = Delete[Union[Flatten[Table[If [PrimeQ[5^n + 7 + 1] == True, 5^n + 7 + 1, 0], {n, 1, 400}]]], 1]


CROSSREFS



KEYWORD

nonn,bref


AUTHOR



EXTENSIONS



STATUS

approved

