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

%I #16 Jan 20 2023 18:37:17

%S 23,157158159160161162163,271272273274275276277,653654655656657658659,

%T 733734735736737738739,1187118811891190119111921193,

%U 1907190819091910191119121913,2897289828992900290129022903,3203320432053206320732083209,3301330233033304330533063307

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

%H Harvey P. Dale, <a href="/A053558/b053558.txt">Table of n, a(n) for n = 1..1000</a>

%t 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 *)

%Y Cf. A000040.

%K base,nonn

%O 1,1

%A _G. L. Honaker, Jr._, Jan 16 2000

%E More terms from _Harvey P. Dale_, Jan 20 2023