A134723 Concatenation of next n odd primes.

3, 57, 111317, 19232931, 3741434753, 596167717379, 838997101103107109, 113127131137139149151157, 163167173179181191193197199, 211223227229233239241251257263, 269271277281283293307311313317331

Offset: 1

Author

Omar E. Pol, Nov 10 2007

Keywords

• base
• easy
• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A065091, A133013.

Programs

Mathematica

Module[{nterms=12,max},max=(nterms(nterms+1))/2+1; FromDigits[ Flatten[ IntegerDigits/@#]]&/@ With[ {pr=Prime[Range[2,max]]},Table[Take[pr, {(n(n-1))/2+1,(n(n+1))/2}],{n,nterms}]]] (* Harvey P. Dale, Nov 25 2012 *)
Module[{nn=20},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[Prime[ Range[ 2,(nn(nn+1))/2+1]],Range[nn]]] (* Harvey P. Dale, Mar 27 2022 *)