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

7, 19, 199, 1009, 19417, 160009, 1086791, 10301299, 139993999, 1391909989, 10597399381, 108979916999, 1993999651909, 13924969999799

Offset

1,1

Comments

Smallest n-digit term of A215421.

Links

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

Example

a(4) = 1009 is the smallest 4-digit prime which yields 5 primes by inserting a 9 in every possible position: 91009, 19009, 10909, 10099, 10099.

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, 9], Throw@p, p = NextPrime@p]]; 0]]; a /@ Range[8]

Crossrefs

Cf. A215421, A164328, A228148, A228149.

Sequence in context: A173384 A107195 A201479 * A331404 A191624 A221740

Adjacent sequences: A228147 A228148 A228149 * A228151 A228152 A228153

Keyword

nonn,base,more

Author

Giovanni Resta, Aug 13 2013

Status

approved