This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182849 #6 Mar 30 2012 18:57:12
%S A182849 1,3,2,6,7,4,9,13,11,5,14,19,21,16,8,18,27,31,30,22,10,23,36,43,45,39,
%T A182849 28,12,26,44,56,61,57,50,34,15,32,52,68,78,79,73,60,40,17,37,63,83,94,
%U A182849 101,98,87,70,47,20,42,72,96,113,124,126,118,104,82,54,24,48
%N A182849 Joint-rank array of the numbers j*(i-1+r), where r = golden ratio = (1+sqrt(5))/2, and i>=1, j>=1, by antidiagonals.
%C A182849 Joint-rank arrays are defined in the first comment at A182801. Every positive integer occurs exactly once, so that as a sequence, A182849 is a permutation of the positive integers.
%F A182849 T(i,j)=SUM{floor(j*(i-1+r)/(k-1+r)): r=(1+sqrt(5))/2, k>=1} for i>=1, j>=1.
%e A182849 Northwest corner:
%e A182849 1....3....6....9...
%e A182849 2....7...13...19...
%e A182849 4...11...21...31...
%e A182849 5...16...30...45...
%t A182849 r=GoldenRatio;
%t A182849 f[i_,j_]:=Sum[Floor[j*(i-1+r)/(k-1+r)],{k,1,1+r+j(i-1+r)}];
%t A182849 TableForm[Table[f[i,j],{i,1,10},{j,1,10}]] (* A182849 *)
%Y A182849 Cf. A182801, A182846.
%K A182849 nonn,tabl
%O A182849 1,2
%A A182849 _Clark Kimberling_, Dec 08 2010