OFFSET
1,1
FORMULA
a(n) = pi(A023271(n)).
MAPLE
5 is in this sequence because: prime(5) = 11 and 11+6=17, 11+12=23, and 11+18=29 are all primes.
MATHEMATICA
Select[Range[1, PrimePi[50000]], PrimeQ[Prime[#] + 6] && PrimeQ[Prime[#] + 12] && PrimeQ[Prime[#] + 18] &]
PROG
(PARI) for(k=1, primepi(50000), p = prime(k); if(isprime(p+6) && isprime(p+12) && isprime(p+18), print(k)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Kritsada Moomuang, Oct 24 2024
STATUS
approved