OFFSET
1,1
PROG
(PARI) {for(n=1, 200, if(prime(n+1)-prime(n)==2, my(a=prime(n)*prime(n+1), b=prime(n+1)*prime(n+2), c=0); for(m=a, b, if(isprime(m)==1&&isprime(m+2)==1, c=c+1)); print1(c, ", ")))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhandos Mambetaliyev, Mar 27 2021
STATUS
approved