OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
270 is in the sequence because 270 - 1 = 269 and 270 + 1 = 271 are twin primes and 3*270^9 - 1 = 22876792454960999999999 and 3*270^9 + 1 = 22876792454961000000001 are also twin primes.
MATHEMATICA
fQ[n_] := Block[{p = n + 1}, PrimeQ[p + 1] && PrimeQ[3p^9 - 1] && PrimeQ[3p^9 + 1]]; Select[ Prime[ Range[408581]], fQ[ # ] &] + 1 (* Robert G. Wilson v, Jun 09 2005 *)
PROG
(Magma) twin:=func<p|IsPrime(p-1) and IsPrime(p+1)>; [k:k in [2..5000000]| twin(k) and twin(3*k^9)]; // Marius A. Burtea, Jan 03 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Jun 05 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jun 09 2005
STATUS
approved