login
A141279
Primes p such that p - 6^2, p - 6, p + 6 and p + 6^2 are also primes.
6
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,1
COMMENTS
Subsequence of A006489. A141280 and A141281 are subsequences.
LINKS
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Jun 21 2008
STATUS
approved