%I M4770 #58 Feb 05 2024 00:58:17
%S 11,13,17,23,37,47,53,67,73,103,107,157,173,233,257,263,277,353,373,
%T 563,593,607,613,647,653,733,947,977,1097,1103,1123,1187,1223,1283,
%U 1297,1367,1433,1453,1487,1493,1607,1613,1663,1747,1753,1783,1867,1873
%N Numbers k such that k-6, k, and k+6 are primes.
%C A006562 without the first term 5 is a subsequence. - _Zak Seidov_, Apr 19 2021
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A006489/b006489.txt">Table of n, a(n) for n = 1..1000</a>
%H Joseph Hirsch, <a href="http://www.jstor.org/stable/27958187">Prime Triplets</a>, Mathematics Teacher, 62 (1969), 467ff (see p. 471).
%H D. S. Kluk and N. J. A. Sloane, <a href="/A002050/a002050_3.pdf">Correspondence, 1979</a>
%t Select[Prime[Range[300]],And@@PrimeQ[#+{6,-6}]&] (* _Harvey P. Dale_, May 21 2012 *)
%o (Haskell)
%o a006489 n = a006489_list !! (n-1)
%o a006489_list = filter
%o ((== 1) . a010051 . (subtract 6)) $ dropWhile (<= 6) a023201_list
%o -- _Reinhard Zumkeller_, Feb 25 2013
%o (PARI) is(n)=isprime(n-6) && isprime(n) && isprime(n+6) \\ _Charles R Greathouse IV_, Feb 07 2017
%Y Subsequence of A023201.
%Y Cf. A006562.
%K nonn,nice,easy
%O 1,1
%A _N. J. A. Sloane_
%E More terms from _James A. Sellers_, Dec 24 1999