OFFSET
1,7
COMMENTS
Refer to A269845, but change to n+2 X n instead of n+1 X n.
LINKS
Kival Ngaokrajang, Illustration of initial terms, Row sum
EXAMPLE
Irregular triangle begins:
n\k 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ...
1 1, 1
2 1, 1, 1, 1
3 9, 4, 1, 1, 4, 9
4 4, 1, 1, 4, 4, 1, 1, 4
5 25, 4, 9, 16, 1, 1, 16, 9, 4, 25
6 9, 1, 4, 4, 1, 9, 9, 1, 4, 4, 1, 9
7 49, 4, 25, 16, 9, 36, 1, 1, 36, 9, 16, 25, 4, 49
8 16, 1, 9, 4, 4, 9, 1, 16, 16, 1, 9, 4, 4, 9, 1, 16
...
PROG
(Small Basic)
For n=1 To 20
c=1
For k=1 To 2*n
If k<=n then
If Math.Remainder(n, 2)=0 Then
If Math.remainder(k, 2)=0 Then
t[n][k]=k/2
Else
t[n][k]=math.Floor(n/2-(k/2-1/2))
EndIf
Else
If Math.remainder(k, 2)=0 Then
t[n][k]=k
Else
t[n][k]=(n-k)+1
EndIf
EndIf
TextWindow.Write(t[n][k]*t[n][k]+ ", ")
Else
t[n][k]=t[n][k-c]
TextWindow.write(t[n][k]*t[n][k]+ ", ")
c=c+2
EndIf
EndFor
EndFor
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Kival Ngaokrajang, Mar 15 2016
STATUS
approved