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