A004923 a(n) = floor(n*phi^8), where phi is the golden ratio, A001622.
0, 46, 93, 140, 187, 234, 281, 328, 375, 422, 469, 516, 563, 610, 657, 704, 751, 798, 845, 892, 939, 986, 1033, 1080, 1127, 1174, 1221, 1268, 1315, 1362, 1409, 1456, 1503, 1550, 1597, 1644, 1691, 1738, 1785
Offset: 0
Keywords
Links
Crossrefs
Programs
-
Magma
[Floor((47+21*Sqrt(5))*n/2): n in [0..60]]; // G. C. Greubel, Aug 24 2023
-
Mathematica
With[{c=GoldenRatio^8},Floor[c*Range[0,40]]] (* Harvey P. Dale, Sep 08 2020 *)
-
SageMath
[floor(golden_ratio^8*n) for n in range(61)] # G. C. Greubel, Aug 24 2023