OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
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
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