OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..5500
EXAMPLE
2 is prime, 100*2-1 = 199 is prime, 100*2-3 = 197 is prime, 100*2-7 = 193 is prime, and 100*2-9 = 191 is prime. Thus 2 is a member of this sequence.
MATHEMATICA
Select[Prime[Range[50000]], PrimeQ[100# -1]&&PrimeQ[100# -3]&&PrimeQ[100# -7] &&PrimeQ[100# -9] &] (* K. D. Bajpai, Jun 13 2014 *)
Select[Prime[Range[50000]], AllTrue[100#-{1, 3, 7, 9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 06 2019 *)
PROG
(Python)
import sympy
from sympy import isprime
from sympy import prime
{print(prime(n), end=', ') for n in range(1, 10**5) if isprime(100*prime(n)-1) and isprime(100*prime(n)-3) and isprime(100*prime(n)-7) and isprime(100*prime(n)-9)}
(PARI) for(n=1, 10^5, if(ispseudoprime(100*prime(n)-1)&& ispseudoprime(100*prime(n)-3)&& ispseudoprime(100*prime(n)-7)&& ispseudoprime(100*prime(n)-9), print1(prime(n), ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jun 04 2014
STATUS
approved