OFFSET
1,1
MATHEMATICA
With[{sgp=Select[Prime[Range[500]], PrimeQ[2#+1]&]}, Table[ FromDigits[ Flatten[IntegerDigits/@Take[sgp, {(n(n+1))/2+1, ((n+1)(n+2))/2}]]], {n, 0, 11}]] (* Harvey P. Dale, Mar 24 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Nov 10 2007
EXTENSIONS
More terms from Harvey P. Dale, Mar 24 2013
STATUS
approved