OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=17 is a term because 17 and 19 and (17*19-2)/3 = 107 are primes.
MAPLE
P:= {seq(ithprime(i), i=3..10000)}:
T:= P intersect map(`-`, P, 2):
select(p -> isprime((p*(p+2)-2)/3), T);
MATHEMATICA
Select[Prime@ Range[1100], AllTrue[{#2, (Times @@ {##} - 2)/3}, PrimeQ] & @@ {#, # + 2} &] (* Michael De Vlieger, Dec 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Dec 07 2020
STATUS
approved