A141279 Primes p such that p - 6^2, p - 6, p + 6 and p + 6^2 are also primes.

47, 53, 67, 73, 103, 233, 277, 353, 373, 607, 947, 977, 1187, 1223, 1487, 1663, 2683, 2693, 2713, 2963, 3307, 3733, 4457, 5443, 6323, 6863, 7523, 9007, 11903, 11933, 12107, 12547, 12583, 15313, 15767, 18217, 19427, 20107, 20753, 21523, 22073

Offset: 1

Author

Rick L. Shepherd, Jun 21 2008

Keywords

• nonn

Comments

Subsequence of A006489. A141280 and A141281 are subsequences.

Links

• Rick L. Shepherd, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A006489, A141280, A141281, A141282.

Programs

Mathematica

pQ[n_]:=And@@PrimeQ[{n-36,n-6,n+6,n+36}]; Select[Prime[Range[10,3000]],pQ]  (* Harvey P. Dale, Feb 02 2011 *)
Select[Prime[Range[10,3000]],AllTrue[#+{-36,-6,6,36},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 05 2018 *)