Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Oct 15 2024 23:17:01
%S 1,4,2,8,7,3,12,14,11,5,17,22,21,16,6,24,30,33,29,20,9,28,40,45,44,38,
%T 26,10,35,51,59,61,57,47,32,13,41,60,73,80,77,69,56,37,15,49,71,88,97,
%U 101,94,84,66,43,18,55,82,103,115,124,123,113,99,76,50,19,64
%N Joint-rank array of the numbers j*(i-1+r), where r=sqrt(5), i>=1, j>=1, by antidiagonals.
%C Joint-rank arrays are defined in the first comment at A182801.
%F T(i,j) = Sum_{k>=1} floor(j*(i-1+r)/(k-1+r)), where r=sqrt(5).
%e Northwest corner:
%e 1....4....8...12...17...
%e 2....7...14...22...30...
%e 3...11...21...33...45...
%e 5...16...29...44...61...
%t r=Sqrt[5];
%t f[i_,j_]:=Sum[Floor[j*(i-1+r)/(k-1+r)],{k,1,1+r+j(i-1+r)}];
%t TableForm[Table[f[i,j],{i,1,10},{j,1,10}]]
%Y Cf. A182801, A182846.
%K nonn,tabl
%O 1,2
%A _Clark Kimberling_, Dec 08 2010