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 A052077 #25 Sep 04 2023 23:49:32 %S A052077 2,23,0,4567,1516171819,0,78910111213,23456789,0,45678910111213, %T A052077 129130131132133134135136137138139,0,567891011121314151617, %U A052077 5051525354555657585960616263,0,128129130131132133134135136137138139140141142143 %N A052077 Smallest prime formed by concatenating n consecutive increasing numbers, or 0 if no such prime exists. %C A052077 Starting numbers in concatenations are given by A052079. %H A052077 Paolo P. Lava, <a href="/A052077/b052077.txt">Table of n, a(n) for n = 1..43</a> %H A052077 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_078.htm">Prime Puzzle 78</a>. %t A052077 f[n_] := If[Mod[n, 3] == 0, 0, Block[{k = 1}, While[d = FromDigits@ Flatten@ IntegerDigits[ Range[k, k + n - 1]]; !PrimeQ@ d, k++]; d]]; Array[f, 16] (* _Robert G. Wilson v_, Jun 29 2012 *) %Y A052077 Cf. A052078, A052079, A052080, A030997. %K A052077 nonn,base,nice %O A052077 1,1 %A A052077 _Patrick De Geest_, Jan 15 2000 %E A052077 Terms a(7)-a(15) are calculated by _Carlos Rivera_ and _Felice Russo_ %E A052077 a(16) from _Max Alekseyev_, Jan 31 2010