OFFSET
1,1
COMMENTS
All terms are Chen primes.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
PROG
(PARI) isok(p)=if(isprime(p), my(f=factor(p+2)); (#f~==1&&f[1, 2]==2) || (#f~==2&&f[1, 2]==1&&f[2, 2]==1&&logint(f[1, 1], 10)==logint(f[2, 1], 10)), 0) \\ Andrew Howroyd, Oct 08 2025
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 21 2005
STATUS
approved
