OFFSET
1,2
COMMENTS
FORMULA
T(i,j)=SUM{floor(j*(i-1+r)/(k-1+r)): r=(1+sqrt(5))/2, k>=1} for i>=1, j>=1.
EXAMPLE
Northwest corner:
1....3....6....9...
2....7...13...19...
4...11...21...31...
5...16...30...45...
MATHEMATICA
r=GoldenRatio;
f[i_, j_]:=Sum[Floor[j*(i-1+r)/(k-1+r)], {k, 1, 1+r+j(i-1+r)}];
TableForm[Table[f[i, j], {i, 1, 10}, {j, 1, 10}]] (* A182849 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Dec 08 2010
STATUS
approved