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

0, 15126, 30253, 45380, 60507, 75634, 90761, 105888, 121015, 136142, 151269, 166396, 181523, 196650, 211777, 226904, 242031, 257158, 272285, 287412, 302539, 317666, 332793, 347920, 363047, 378174

Offset

0,2

Comments

From Joerg Arndt, Sep 12 2023: (Start)

phi^20 = 15126.999933893... is a near integer.

Therefore the (incorrect!) g.f. 1 + (-1 + 15128*x)/(1-x)^2 produces the initial about 15000 terms of this sequence.

(End)

Links

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

Index entries for sequences related to Beatty sequences

Mathematica

With[{c=GoldenRatio^20}, Floor[c Range[0, 30]]] (* Harvey P. Dale, Feb 18 2013 *)

Prog

(Magma) [Floor((15127+6765*Sqrt(5))*n/2): n in [0..60]]; // G. C. Greubel, Sep 12 2023
(SageMath) [floor(golden_ratio^(20)*n) for n in range(61)] # G. C. Greubel, Sep 12 2023

Crossrefs

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

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

Cf. A004933, A004934, A004976, A066096, A090909.

Cf. A001622.

Sequence in context: A190294 A124047 A113008 * A004955 A004975 A157436

Adjacent sequences: A004932 A004933 A004934 * A004936 A004937 A004938

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved