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 A052087 #18 Apr 23 2017 10:19:13 %S A052087 23,67,89,1213,3637,4243,4567,5051,5657,6263,6869,7879,8081,9091,9293, %T A052087 9697,102103,108109,120121,126127,138139,150151,156157,180181,186187, %U A052087 188189,192193,200201,216217,242243,246247,252253,270271 %N A052087 Primes whose decimal expansion is a concatenation of two or more consecutive increasing numbers (no leading zeros allowed). %H A052087 Paul Tek, <a href="/A052087/b052087.txt">Table of n, a(n) for n = 1..10000</a> %t A052087 With[{e = 6}, TakeWhile[Select[Function[s, Union@ Flatten@ Map[Function[k, Map[FromDigits@ Flatten@ IntegerDigits@ # &, Partition[Take[s, 10^(e - k)], k, 1]]], Range[2, e]]]@ Range[10^e], PrimeQ], IntegerLength@ # <= e &]] (* _Michael De Vlieger_, Apr 23 2017 *) %Y A052087 Cf. A052088, A030458, A052089. %Y A052087 Primes in A035333. %K A052087 nonn,base %O A052087 1,1 %A A052087 _Patrick De Geest_, Jan 15 2000 %E A052087 Initial data corrected by _Paul Tek_, May 07 2013