|
%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
|
