|
|
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
| Sequence in context: A048847 A093671 * A134070 A181170 A002337 A008423
Adjacent sequences: A102907 A102908 A102909 * A102911 A102912 A102913
|
|
|
KEYWORD
| nonn,bref
|
|
|
AUTHOR
| Roger Lee Bagula (rlbagulatftn(AT)yahoo.com), Mar 01 2005
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 16 2006
Verified by Don Reble (djr(AT)nk.ca), Apr 25 2006
|
|
