|
%I #10 Apr 23 2021 12:05:58
%S 0,6,30,120,240,520,960,1386,2184,3240,4160,5742,7068,9282,11914,
%T 14040,17472,21420,24534,29450,33280,39270,45936,51060,58968,65000,
%U 74256,84348,91980,103588,116130,125550,139776,150414,166430,183540,196272
%N Golden rectangular box numbers: a(n) = n*A007067(n)*A007067(A007067(n)).
%F a(n) = n*round(n*(1+sqrt(5))/2)*round(round(n*(1+sqrt(5))/2)*(1+sqrt(5))/2). - _Wesley Ivan Hurt_, Apr 23 2021
%t b[n_] := Round[n*GoldenRatio];
%t a[n_] := n*b[n]*b[b[n]];
%t Table[a[n], {n, 0, 36}] (* _Jean-François Alcover_, Dec 15 2017 *)
%o (PARI) b(n) = round(n*(1+sqrt(5))/2);
%o a(n) = n*b(n)*b(b(n)); \\ _Michel Marcus_, Dec 15 2017
%Y Cf. A007067, A050508.
%K easy,nice,nonn
%O 0,2
%A Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 28 1999
|
