A228149 a(n) is the smallest n-digit prime which remains prime whenever a 7 is inserted, appended or prepended, or 0 if no such prime exists.

3, 19, 433, 1471, 13177, 175687, 1740787, 10871017, 137725897, 1670181787, 12845952529, 117777772309, 1008078796477, 11777787780727

Offset

1,1

Comments

Smallest n-digit term of A215420.

Links

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

Example

a(3) = 433 is the smallest 3-digit prime which yields 4 primes by inserting a 7 in every possible position: 7433, 4733, 4373, 4337.

Mathematica

pp[n_, k_] := Catch[Block[{d = IntegerDigits@n}, Do[If[! PrimeQ[ FromDigits[ Insert[d, k, i]]], Throw[False]], {i, 1+Length@d}]; True]]; a[n_] := Catch[ Block[{p = NextPrime[10^(n-1)]}, While[p < 10^n, If[pp[p, 7], Throw@p, p = NextPrime@p]]; 0]]; a /@ Range[8]

Crossrefs

Cf. A215420, A164328, A228148, A228150.

Sequence in context: A041951 A365362 A143762 * A358161 A079281 A176232

Adjacent sequences: A228146 A228147 A228148 * A228150 A228151 A228152

Keyword

nonn,base,more

Author

Giovanni Resta, Aug 13 2013

Status

approved