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
Keywords
Links
- Rick L. Shepherd, Table of n, a(n) for n = 1..10000
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 *)
Comments