login
Primes of the form 5^n+8.
10

%I #10 Dec 18 2020 04:02:43

%S 13,

%T 2524354896707237777317531408904915934954260592348873615264892578133

%N Primes of the form 5^n+8.

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

%p 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

%t a = Delete[Union[Flatten[Table[If [PrimeQ[5^n + 7 + 1] == True, 5^n + 7 + 1, 0], {n, 1, 400}]]], 1]

%Y Cf. A217133 (values of n).

%K nonn,bref

%O 1,1

%A _Roger L. Bagula_, Mar 01 2005

%E Edited by _N. J. A. Sloane_, Apr 16 2006

%E Verified by _Don Reble_, Apr 25 2006