A053558 Primes formed by concatenating n consecutive increasing numbers starting with a prime and ending with the next consecutive prime.

23, 157158159160161162163, 271272273274275276277, 653654655656657658659, 733734735736737738739, 1187118811891190119111921193, 1907190819091910191119121913, 2897289828992900290129022903, 3203320432053206320732083209, 3301330233033304330533063307

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Join[{23}, With[{t=Table[Range[Prime[n], Prime[n+1]], {n, 500000}]}, FromDigits[ Flatten[ IntegerDigits/@#]]&/@Flatten[Table[Select[t, Length[#]==k&&PrimeQ[ FromDigits[ Flatten[ IntegerDigits/@#]]]&], {k, 3, 31, 2}], 1]]] (* Harvey P. Dale, Jan 20 2023 *)

Crossrefs

Cf. A000040.

Sequence in context: A030464 A180731 A376896 * A140793 A023923 A267334

Adjacent sequences: A053555 A053556 A053557 * A053559 A053560 A053561

Keyword

base,nonn

Author

G. L. Honaker, Jr., Jan 16 2000

Extensions

More terms from Harvey P. Dale, Jan 20 2023

Status

approved