A080439 a(1) = 11, a(n) is the smallest prime obtained by inserting digits between every pair of digits of a(n-1).
11, 101, 10061, 100000651, 10000000000060571, 100000000000000000000000600052761, 10000000000000000000000000000000000000000000000060000000502271641
Offset: 1
Examples
a(2) = 101 and a(3) is obtained by inserting a '0' and a '6' in the two inner spaces of 101: (1,-,0,-,1).
Links
- Julio Cesar Hernandez-Castro, Table of n, a(n) for n = 1..12
Programs
-
Mathematica
a[n_] := Block[{d = IntegerDigits[n]}, k = Length[d]; While[k > 1, d = Insert[d, 0, k]; k-- ]; d = FromDigits[d]; e = d; k = 0; While[ !PrimeQ[e], k++; e = d + 10FromDigits[ IntegerDigits[k], 100]]; e]; NestList[a, 11, 6]
Extensions
Edited, corrected and extended by Robert G. Wilson v, Feb 22 2003
Comments