login
A062403
Primes of the form 2*k*prime(k) + 1.
1
5, 13, 31, 157, 239, 683, 1697, 3067, 4273, 5563, 6323, 6781, 9043, 13841, 16427, 22247, 22901, 23767, 27109, 32687, 33721, 45833, 58217, 61933, 83341, 90583, 94811, 115979, 158161, 172751, 193619, 202877, 221567, 284233, 297967, 308773
OFFSET
1,1
LINKS
MAPLE
select(isprime, [seq(2*i*ithprime(i)+1, i=1..200)]); # Muniru A Asiru, Jun 29 2018
PROG
(PARI) je=[]; for(n=0, 200, if(isprime(2*n*prime(n)+1), je=concat(je, 2*n*prime(n)+1), )); je
(PARI) { n=c=0; forprime (p=2, 5*10^5, q=2*(c++)*p + 1; if (isprime(q), write("b062403.txt", n++, " ", q); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 07 2009
CROSSREFS
Sequence in context: A146368 A147424 A146057 * A066688 A046789 A271902
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 08 2001
EXTENSIONS
Definition corrected by Harry J. Smith, Aug 07 2009
Name simplified by Jon E. Schoenfield, Jun 29 2018
STATUS
approved