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

0, 521, 1042, 1563, 2084, 2605, 3126, 3647, 4168, 4689, 5210, 5731, 6252, 6773, 7294, 7815, 8336, 8857, 9378, 9899, 10420, 10941, 11462, 11983, 12504, 13025, 13546, 14067, 14588, 15109, 15630, 16151

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000
• Tanya Khovanova, Non Recursions
• Index entries for sequences related to Beatty sequences

Crossrefs

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

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

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

Cf. A001622.

Programs

Magma

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

Mathematica

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

SageMath

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