|
|
A006489
|
|
Numbers k such that k-6, k, and k+6 are primes.
(Formerly M4770)
|
|
15
|
|
|
11, 13, 17, 23, 37, 47, 53, 67, 73, 103, 107, 157, 173, 233, 257, 263, 277, 353, 373, 563, 593, 607, 613, 647, 653, 733, 947, 977, 1097, 1103, 1123, 1187, 1223, 1283, 1297, 1367, 1433, 1453, 1487, 1493, 1607, 1613, 1663, 1747, 1753, 1783, 1867, 1873
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
Joseph Hirsch, Prime Triplets, Mathematics Teacher, 62 (1969), 467ff (see p. 471).
|
|
MATHEMATICA
|
Select[Prime[Range[300]], And@@PrimeQ[#+{6, -6}]&] (* Harvey P. Dale, May 21 2012 *)
|
|
PROG
|
(Haskell)
a006489 n = a006489_list !! (n-1)
a006489_list = filter
((== 1) . a010051 . (subtract 6)) $ dropWhile (<= 6) a023201_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|