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,2

Links

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

Mathematica

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

Prog

(Magma) [Round(n*(7+3*Sqrt(5))/2): n in [0..80]]; // G. C. Greubel, Dec 04 2023
(SageMath) [round(golden_ratio^4*n) for n in range(81)] # G. C. Greubel, Dec 04 2023

Crossrefs

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

Sequence in context: A242888 A037367 A276613 * A115417 A003330 A345773

Adjacent sequences: A004936 A004937 A004938 * A004940 A004941 A004942

Keyword

nonn

Author

N. J. A. Sloane

Status

approved