OFFSET
1,1
COMMENTS
The next term, 5^(335)+8, is too large to include.
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
Roger L. Bagula, Mar 01 2005
EXTENSIONS
Edited by N. J. A. Sloane, Apr 16 2006
Verified by Don Reble, Apr 25 2006
STATUS
approved