OFFSET
1,1
COMMENTS
Numbers k such that k = p + q where p < q and p, q, and q - p are all prime.
From Bernard Schott, Jul 15 2019: (Start)
If k is even, then k is in A054735 with q - p = 2.
If k is odd, then k is in (A006512 + 2) with p = 2. (End)
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= select(isprime, {seq(i, i=3..10000, 2)}):
T:= P intersect map(`+`, P, 2):
A1:= map(`+`, T, 2):
A2:= select(`<`, map(t -> 2*t-2, T), max(A1)):
sort(convert(A1 union A2, list); # Robert Israel, Jul 15 2019
PROG
(PARI) is(n) = my(x=n-1, y=1); while(x >= y, if(ispseudoprime(x) && ispseudoprime(y), if(ispseudoprime(x-y), return(1))); x--; y++); 0 \\ Felix Fröhlich, Jul 14 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jul 14 2019
STATUS
approved