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

0, 122, 245, 368, 491, 614, 737, 860, 983, 1106, 1229, 1352, 1475, 1598, 1721, 1844, 1967, 2090, 2213, 2336, 2459, 2582, 2705, 2828, 2951, 3074, 3197, 3320, 3443, 3566, 3689, 3812, 3935, 4058, 4181

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Index entries for sequences related to Beatty sequences

Crossrefs

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

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

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

Cf. A001622 (phi).

Programs

Magma

[Floor((123+55*Sqrt(5))*n/2): n in [0..60]]; // G. C. Greubel, Aug 27 2023

Maple

A004925:=n->floor(n*((1 + sqrt(5))/2)^10): seq(A004925(n), n=0..100); # Wesley Ivan Hurt, Jul 26 2017

Mathematica

Floor[GoldenRatio^(10)*Range[0,60]] (* G. C. Greubel, Aug 27 2023 *)

SageMath

[floor(golden_ratio^(10)*n) for n in range(61)] # G. C. Greubel, Aug 27 2023