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

0, 5777, 11555, 17333, 23111, 28889, 34667, 40445, 46223, 52001, 57779, 63557, 69335, 75113, 80891, 86669, 92447, 98225, 104003, 109781, 115559, 121337, 127115, 132893, 138671, 144449, 150227

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

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, A004931, A004932.

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

Cf. A001622.

Programs

Magma

[Floor((2889+1292*Sqrt(5))*n): n in [0..60]]; // G. C. Greubel, Sep 11 2023

Mathematica

With[{p=GoldenRatio^18},Floor[p*Range[0,30]]] (* Harvey P. Dale, Mar 06 2022 *)

SageMath

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