A182950 Joint-rank array of the numbers (3*i+2)*3^j, where i>=0, j>=0, by antidiagonals.
1, 3, 2, 9, 7, 4, 27, 22, 12, 5, 81, 67, 36, 16, 6, 243, 202, 108, 49, 20, 8, 729, 607, 324, 148, 62, 25, 10, 2187, 1822, 972, 445, 188, 76, 30, 11, 6561, 5467, 2916, 1336, 566, 229, 90, 34, 13, 19683, 16402, 8748, 4009, 1700, 688, 270, 103, 39, 14
Offset: 1
Examples
Northwest corner: 1....3....9....27... 2....7...22....67... 4...12...36...108... 5...16...49...148...
Links
- Clark Kimberling, Interspersions and Dispersions.
Programs
-
Mathematica
M[i_,j_]:=j+Floor[Log[3*i/2+1]/Log[3]]; T[i_,j_]:=Sum[Floor[1/3+(3*i+2)*3^(j-k-1)],{k,0,M[i,j]}]; TableForm[Table[T[i,j],{i,0,9},{j,0,9}]]
Comments