
OFFSET

1,1


COMMENTS

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


LINKS

Table of n, a(n) for n=1..2.


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

Sequence in context: A322517 A257375 A228033 * A262298 A181170 A243830
Adjacent sequences: A102907 A102908 A102909 * A102911 A102912 A102913


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

