OFFSET
1,1
LINKS
C. K. Caldwell, The Prime Pages.
MATHEMATICA
With[{nn=15}, FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[Prime[ Range[ (nn(nn+1))/2]], Range[nn]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Apr 26 2018 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Omar E. Pol, Oct 19 2007
STATUS
approved