|
%I #15 May 19 2019 17:20:53
%S 47,53,67,73,103,233,277,353,373,607,947,977,1187,1223,1487,1663,2683,
%T 2693,2713,2963,3307,3733,4457,5443,6323,6863,7523,9007,11903,11933,
%U 12107,12547,12583,15313,15767,18217,19427,20107,20753,21523,22073
%N Primes p such that p - 6^2, p - 6, p + 6 and p + 6^2 are also primes.
%C Subsequence of A006489. A141280 and A141281 are subsequences.
%H Rick L. Shepherd, <a href="/A141279/b141279.txt">Table of n, a(n) for n = 1..10000</a>
%t pQ[n_]:=And@@PrimeQ[{n-36,n-6,n+6,n+36}]; Select[Prime[Range[10,3000]],pQ] (* _Harvey P. Dale_, Feb 02 2011 *)
%t 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 *)
%Y Cf. A006489, A141280, A141281, A141282.
%K nonn
%O 1,1
%A _Rick L. Shepherd_, Jun 21 2008
|
