cp's OEIS Frontend

A182848 Joint-rank array of the numbers j*(i-1+r), where r=sqrt(5), i>=1, j>=1, by antidiagonals.

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