OFFSET
1,1
COMMENTS
Subsequence of A175914.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p1+2*p2], AppendTo[lst, p1]], {n, 7!}]; lst
Reap[Do[p = Prime[m]; If[PrimeQ[p + 2 ] && PrimeQ[3 p + 4], Sow[p]], {m, 10^3}]][[2, 1]](* Zak Seidov, Oct 14 2012 *)
Transpose[Select[Partition[Prime[Range[1000]], 2, 1], #[[2]]-#[[1]]==2 && PrimeQ[ #[[1]]+2#[[2]]]&]][[1]] (* Harvey P. Dale, Jan 28 2015 *)
PROG
(PARI) forprime(p=2, 7000, q=p+2; if(isprime(q)&& isprime(p+2*q), print1(p, ", ")))
(Magma) [p: p in PrimesUpTo(7000) | IsPrime(p+2) and IsPrime(3*p+4)]; // Vincenzo Librandi, Jan 29 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 02 2010
EXTENSIONS
Definition and comment corrected by Zak Seidov, Dec 06 2010
STATUS
approved