login
Golden rectangular box numbers: a(n) = n*A007067(n)*A007067(A007067(n)).
0

%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