OFFSET
1,1
MAPLE
a:=[];
for n from 1 to 420 do
p:=ithprime(n); p1:=p+4; p2:=(p+5)/6;
if isprime(p1) and whattype(p2)=integer and not isprime(p2) then a:=[op(a), p]; fi;
od:
a; # N. J. A. Sloane, Mar 09 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 28 2008
EXTENSIONS
Entry corrected by the combined efforts of Bill McEachen, R. J. Mathar, Jon E. Schoenfield, Alois P. Heinz, and N. J. A. Sloane, Mar 09 2024
STATUS
approved