OFFSET
1,1
COMMENTS
EXAMPLE
Triangle begins:
.............. 2
........... 2, 3, 2
........ 2, 3, 5, 3, 2
..... 2, 3, 5, 7, 5, 3, 2
.. 2, 3, 5, 7,11, 7, 5, 3, 2
MATHEMATICA
nn=10; Module[{pr=Prime[Range[nn]], e}, Flatten[Table[e=Take[pr, n]; Join[ e, Reverse[Most[e]]], {n, nn}]]] (* Harvey P. Dale, Mar 14 2015 *)
CROSSREFS
KEYWORD
easy,nonn,tabf
AUTHOR
Omar E. Pol, Mar 09 2008
EXTENSIONS
Edited by N. J. A. Sloane, Apr 07 2008, Nov 15 2008
STATUS
approved