A004927 a(n) = floor(n*phi^12), where phi is the golden ratio, A001622.
0, 321, 643, 965, 1287, 1609, 1931, 2253, 2575, 2897, 3219, 3541, 3863, 4185, 4507, 4829, 5151, 5473, 5795, 6117, 6439, 6761, 7083, 7405, 7727, 8049, 8371, 8693, 9015, 9337, 9659, 9981, 10303, 10625
Offset: 0
Keywords
Links
Crossrefs
Programs
-
Magma
[Floor((161+72*Sqrt(5))*n): n in [0..60]]; // G. C. Greubel, Aug 27 2023
-
Mathematica
Floor[GoldenRatio^(12)*Range[0,60]] (* G. C. Greubel, Aug 27 2023 *)
-
SageMath
[floor(golden_ratio^(12)*n) for n in range(61)] # G. C. Greubel, Aug 27 2023