OFFSET
0,4
COMMENTS
LINKS
EXAMPLE
Triangle begins:
n\k 0 1 2 3 4 5 6 7 8 ...
0 0
1 0 0
2 2 5 2
3 6 9 9 6
4 14 21 27 21 14
5 30 45 51 51 45 30
6 62 93 107 119 107 93 62
7 126 189 219 231 231 219 189 126
8 254 381 443 471 495 471 443 381 254
...
PROG
(Small Basic)
t[0][0] = 1
t[1][0] = 3
t[1][1] = 3
TextWindow.Write("0, 0, 0, ")
For n = 2 To 20
For k = 0 To n
If k = 0 Or k = n then
t[n][k] = 1 + math.Power(2, n)
Else
t[n][k] = 2*t[n-2][k-1]
EndIf
a = math.Power(2, n+1) -1 -t[n][k]
TextWindow.Write(a+", ")
EndFor
Endfor
CROSSREFS
KEYWORD
tabl,nonn
AUTHOR
Kival Ngaokrajang, Jan 10 2016
STATUS
approved