A104047 Primes p equal to the sum of two successive sexy primes - 1 such that p - 6 is also prime.

19, 67, 79, 199, 547, 619, 739, 1459, 1759, 3319, 3739, 4027, 4567, 5107, 5419, 6367, 7219, 8719, 9187, 9907, 10459, 10867, 11119, 12547, 13099, 14827, 15739, 16927, 17047, 18307, 21319, 25939, 27259, 27367, 31327, 33967, 37579, 38839, 38959

Offset: 1

Author

Giovanni Teofilatto, Mar 31 2005

Keywords

• easy
• nonn

Crossrefs

Cf. A023201, A046117.

Programs

Mathematica

Select[2#+5&/@Select[Prime[Range[4200]],PrimeQ[#+6]&],And@@PrimeQ[ {#,#-6}]&] (* Harvey P. Dale, Feb 28 2012 *)

Formula

A104227 INTERSECT A046117. [From R. J. Mathar, Nov 26 2008]

Extensions

23 and 29 removed, extended by R. J. Mathar, Nov 26 2008