%I #6 Mar 30 2012 18:50:20
%S 23,113,1013,10139,100379,1000037,10000379,100000193,1000001237,
%T 10000000097,100000000193,1000000000193,10000000001777,
%U 100000000001831,1000000000036931,10000000000001873,100000000000000691
%N First prime > 10^n in which every substring of length n is prime.
%t Do[k = 10^n; While[ !PrimeQ[k] || Union[ PrimeQ[ Map[ FromDigits, Partition[ IntegerDigits[k], n, 1]]]] != {True}, k++ ]; Print[k], {n, 1, 25}]
%Y Cf. A019546, A069488, A069489 & A070025.
%Y Cf. A179335. [From _Reinhard Zumkeller_, Jul 11 2010]
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 12 2002
|