A055783 Primes q of form q=10p+7, where p is also prime.

37, 137, 197, 317, 617, 677, 797, 977, 1097, 1277, 1637, 1997, 2237, 2297, 2417, 2777, 2837, 3137, 3677, 3797, 4217, 4337, 4397, 4637, 4877, 5237, 5417, 5477, 5717, 6197, 6317, 6737, 6917, 7517, 7577, 7877, 8117, 8237, 8297, 8537, 8597, 8837, 9377

Offset: 1

Author

Labos Elemer, Jul 13 2000

Keywords

• nonn

Examples

			5417=541*10+7, 7 is concatenated to end of 541.
		

Crossrefs

Cf. A005384, A005385. Subsequence of A030432.

Programs

Mathematica

Select[(10#+7)&/@Prime[Range[200]],PrimeQ] (* Harvey P. Dale, Nov 20 2010 *)