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