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

Links

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

Mathematica

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

Prog

(Magma) [Floor((2889+1292*Sqrt(5))*n): n in [0..60]]; // G. C. Greubel, Sep 11 2023
(SageMath) [floor(golden_ratio^(18)*n) for n in range(61)] # G. C. Greubel, Sep 11 2023

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.

Sequence in context: A094395 A094411 A212423 * A031574 A004953 A004973

Adjacent sequences: A004930 A004931 A004932 * A004934 A004935 A004936

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved