A004931 a(n) = floor(n*phi^16), where phi is the golden ratio, A001622.

0, 2206, 4413, 6620, 8827, 11034, 13241, 15448, 17655, 19862, 22069, 24276, 26483, 28690, 30897, 33104, 35311, 37518, 39725, 41932, 44139, 46346, 48553, 50760, 52967, 55174, 57381, 59588, 61795

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

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

Crossrefs

Cf. A004919, A004920, A004921, A004922, A004923, A004924, A004925.

Cf. A004926, A004927, A004928, A004929, A004930, A004932, A004933.

Cf. A004934, A004935, A004976, A066096, A090909.

Cf. A001622.

Programs

Magma

[Floor((2207+987*Sqrt(5))*n/2): n in [0..60]]; // G. C. Greubel, Sep 06 2023

Mathematica

Floor[GoldenRatio^(16)*Range[0, 60]] (* G. C. Greubel, Sep 06 2023 *)

SageMath

[floor(golden_ratio^(16)*n) for n in range(61)] # G. C. Greubel, Sep 06 2023