OFFSET
0,3
EXAMPLE
Triangle begins
n/k.|..0.....1.....2.....3.....4.....5.....6.....7
==================================================
.0..|..1
.1..|..1.....1
.2..|..1.....2.....2
.3..|..1.....3.....4.....3
.4..|..1.....4.....7.....7.....4
.5..|..1.....5....11....14....11.....5
.6..|..1.....6....16....25....25....16.....8
.7..|..1.....7....22....41....50....41....24.....11
.8..|
The row sums for n >= 1 form sequence A055496.
MATHEMATICA
rows={{1}, {1, 1}}; Table[(x=Flatten[{1, 2 MovingAverage[rows[[n]], 2]}]; sx=Apply[Plus, x]; z=NextPrime[sx, NestWhile[#+1&, 1, NextPrime[sx, #]-sx<Last[rows[[n]]]&]]-sx; rows=Append[rows, Append[x, z]]), {n, 2, 100}]; A207890=Map[Last[#]&, rows]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Feb 21 2012
STATUS
approved