A102910 Primes of the form 5^k + 8.
13, 2524354896707237777317531408904915934954260592348873615264892578133
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..3
Crossrefs
Cf. A217133 (values of k).
Programs
-
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]
Extensions
Edited by N. J. A. Sloane, Apr 16 2006
Verified by Don Reble, Apr 25 2006
Comments