This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070024 #8 May 31 2024 20:13:45 %S A070024 23,113,1013,10139,100379,1000037,10000379,100000193,1000001237, %T A070024 10000000097,100000000193,1000000000193,10000000001777, %U A070024 100000000001831,1000000000036931,10000000000001873,100000000000000691 %N A070024 First prime > 10^n in which every substring of length n is prime. %t A070024 Do[k = 10^n; While[ !PrimeQ[k] || Union[ PrimeQ[ Map[ FromDigits, Partition[ IntegerDigits[k], n, 1]]]] != {True}, k++ ]; Print[k], {n, 1, 25}] %Y A070024 Cf. A019546, A069488, A069489, A070025. %Y A070024 Cf. A179335. [From _Reinhard Zumkeller_, Jul 11 2010] %K A070024 base,nonn %O A070024 1,1 %A A070024 _Robert G. Wilson v_, Apr 12 2002