OFFSET
1,1
EXAMPLE
p(62178)=776117, 2*776117 + 3 = 1552237 = p(117814);
p(62179)=776119, 2*776119 + 3 = 1552241 = p(117815);
p(62180)=776137, 2*776137 + 3 = 1552277 = p(117816);
p(62181)=776143, 2*776143 + 3 = 1552289 = p(117817).
PROG
(PARI) a089492(limit)={my(pv=[2, 3, 5, 0], v3=[3, 3, 3, 3], ks(k)=2*k+3); forprime(p=7, limit, pv[4]=p; if(vecsum(isprime(2*pv+v3))==4&&primepi(ks(pv[4]))-primepi(ks(pv[1]))==3, print1(ks(pv[1]), ", ")); pv[1]=pv[2]; pv[2]=pv[3]; pv[3]=pv[4])};
a089492(30000000) \\ Hugo Pfoertner, Aug 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Nov 04 2003
EXTENSIONS
Offset changed to 1 by Jinyuan Wang, Aug 06 2021
STATUS
approved