login
A052087
Primes whose decimal expansion is a concatenation of two or more consecutive increasing numbers (no leading zeros allowed).
16
23, 67, 89, 1213, 3637, 4243, 4567, 5051, 5657, 6263, 6869, 7879, 8081, 9091, 9293, 9697, 102103, 108109, 120121, 126127, 138139, 150151, 156157, 180181, 186187, 188189, 192193, 200201, 216217, 242243, 246247, 252253, 270271
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Primes in A035333.
Sequence in context: A125873 A059241 A241212 * A030458 A053559 A322414
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 15 2000
EXTENSIONS
Initial data corrected by Paul Tek, May 07 2013
STATUS
approved