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