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

0, 9349, 18698, 28047, 37396, 46745, 56094, 65443, 74792, 84141, 93490, 102839, 112188, 121537, 130886, 140235, 149584, 158933, 168282, 177631, 186980, 196329, 205678, 215027, 224376, 233725

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Links

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

Crossrefs

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

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

Cf. A004933, A004935, A004976, A066096, A090909.

Cf. A001622.

Programs

Magma

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

Mathematica

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

SageMath

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