OFFSET
1,1
EXAMPLE
p(44)=193, 2*193 + 3 = 389 = p(77);
p(45)=197, 2*197 + 3 = 397 = p(78);
p(46)=199, 2*199 + 3 = 401 = p(79).
MATHEMATICA
cpQ[n_]:=Module[{p1=2n+3, p2=2NextPrime[n]+3, p3=2NextPrime[n, 2]+3, pr = PrimePi[ 2n+3]}, {p1, p2, p3}==Prime[Range[pr, pr+2]]]; 2#+3&/@ Select[ Prime[ Range[50000]], cpQ] (* Harvey P. Dale, Sep 24 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Nov 03 2003
EXTENSIONS
Definition clarified by Harvey P. Dale, Sep 24 2019
Offset changed to 1 by Jinyuan Wang, Aug 04 2021
STATUS
approved