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