

A227446


Numbers k such that 7*2^(2*k)  5*2^k + 1 is prime.


0




OFFSET

1,3


COMMENTS



LINKS



MAPLE

select(isprime, [seq(7*2^(2*n)5*2^n+1, n=0..1000)]); # Jinyuan Wang, Feb 12 2019


MATHEMATICA

Select[Range[0, 3000], PrimeQ[7 2^(2 #)  5 2^# + 1]&]


PROG

(PARI) for(n=0, 10^6, if(ispseudoprime(7*2^(2*n)5*2^n+1), print1(n, ", "))); \\ Joerg Arndt, Jul 14 2013


CROSSREFS



KEYWORD

nonn,more


AUTHOR



EXTENSIONS



STATUS

approved



