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

0, 6, 30, 120, 240, 520, 960, 1386, 2184, 3240, 4160, 5742, 7068, 9282, 11914, 14040, 17472, 21420, 24534, 29450, 33280, 39270, 45936, 51060, 58968, 65000, 74256, 84348, 91980, 103588, 116130, 125550, 139776, 150414, 166430, 183540, 196272

Offset: 0

Author

Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 28 1999

Keywords

• easy
• nice
• nonn

Crossrefs

Cf. A007067, A050508.

Programs

Mathematica

b[n_] := Round[n*GoldenRatio];
a[n_] := n*b[n]*b[b[n]];
Table[a[n], {n, 0, 36}] (* Jean-François Alcover, Dec 15 2017 *)

PARI

b(n) = round(n*(1+sqrt(5))/2);
a(n) = n*b(n)*b(b(n)); \\ Michel Marcus, Dec 15 2017

Formula

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