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

0, 7, 14, 21, 27, 34, 41, 48, 55, 62, 69, 75, 82, 89, 96, 103, 110, 117, 123, 130, 137, 144, 151, 158, 164, 171, 178, 185, 192, 199, 206, 212, 219, 226, 233, 240, 247, 254, 260, 267, 274, 281, 288, 295, 302, 308

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A001622, A004940, A004941, A004942, A004943.

Programs

Magma

[Round(n*(7+3*Sqrt(5))/2): n in [0..80]]; // G. C. Greubel, Dec 04 2023

Mathematica

Round[Range[0,100]GoldenRatio^4] (* Paolo Xausa, Oct 28 2023 *)

SageMath

[round(golden_ratio^4*n) for n in range(81)] # G. C. Greubel, Dec 04 2023