|
%I #8 Apr 12 2013 13:06:08
%S 3,2,1,1,1,1,12,6,4,3,2,2,2,1,1,1,1,1,1,1,1,1,1,1,27,13,9,7,5,4,4,3,3,
%T 3,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,48,24,16,12,9,
%U 8,7,6,5,5,4,4,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,75,37,25,18,15,12,10,9,8,7,7,6,5,5,5,4,4,4,4,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
%N Array, read by rows: T(n,h)=floor[1/{(h+n^3)^(1/3)}], where h=1,2,...,3n^2+3n and {}=fractional part.
%C (column 1)=A033428 (3n^2);
%C (column 2)=A184532=A000290+A007590;
%C (column 3)=A000290 (n^2);
%C (column 4)=A184534;
%C (column 5)=A184535;
%C (column 6)=A080476.
%F T(n,h)=floor[1/{(h+n^3)^(1/3)}], where h=1,2,...,3n^2+3n and {}=fractional part.
%e First 2 rows:
%e 3, 2, 1, 1, 1, 1
%e 12, 6, 4, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
%t f[n_,h_]:=FractionalPart[(n^3+h)^(1/3)];
%t g[n_,h_]:=Floor[1/f[n,h]];
%t Table[Flatten[Table[g[n,h],{n,1,5},{h,1,3n^2+3n}]]]
%t TableForm[Table[g[n,h],{n,1,5},{h,1,3n^2+3n}]]
%Y Cf. A013942 (analogous array for sqrt(h+n^2), A184533
%K nonn,tabf
%O 1,1
%A _Clark Kimberling_, Jan 16 2011
|
