A004938 a(n) = round(n*phi^3), where phi is the golden ratio, A001622.

0, 4, 8, 13, 17, 21, 25, 30, 34, 38, 42, 47, 51, 55, 59, 64, 68, 72, 76, 80, 85, 89, 93, 97, 102, 106, 110, 114, 119, 123, 127, 131, 136, 140, 144, 148, 152, 157, 161, 165, 169, 174, 178, 182, 186, 191, 195, 199

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Comments

Nearest integer to n*phi^3.

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A004937, A004939 - A004955.

Cf. A001622.

Programs

Magma

[Round((2+Sqrt(5))*n): n in [0..80]]; // G. C. Greubel, Oct 17 2023

Mathematica

Round[GoldenRatio^3*Range[0, 80]] (* G. C. Greubel, Oct 17 2023 *)

PARI

a(n) = round(n*(((sqrt(5)+1))/2)^3); \\ Michel Marcus, Aug 28 2016

SageMath

[round(golden_ratio^3*n) for n in range(81)] # G. C. Greubel, Oct 17 2023