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,1

Links

Table of n, a(n) for n=1..43.

Example

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

Mathematica

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

Crossrefs

Cf. A005384, A005385. Subsequence of A030432.

Sequence in context: A139734 A142388 A117504 * A044369 A044750 A141936

Adjacent sequences: A055780 A055781 A055782 * A055784 A055785 A055786

Keyword

nonn,changed

Author

Labos Elemer, Jul 13 2000

Status

approved