A052087 Primes whose decimal expansion is a concatenation of two or more consecutive increasing numbers (no leading zeros allowed).

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

Links

Paul Tek, Table of n, a(n) for n = 1..10000

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

Cf. A052088, A030458, A052089.

Primes in A035333.

Sequence in context: A125873 A059241 A241212 * A030458 A053559 A322414

Adjacent sequences: A052084 A052085 A052086 * A052088 A052089 A052090

Keyword

nonn,base

Author

Patrick De Geest, Jan 15 2000

Extensions

Initial data corrected by Paul Tek, May 07 2013

Status

approved