|
%I #18 Sep 13 2023 12:39:50
%S 0,5777,11555,17333,23111,28889,34667,40445,46223,52001,57779,63557,
%T 69335,75113,80891,86669,92447,98225,104003,109781,115559,121337,
%U 127115,132893,138671,144449,150227
%N a(n) = floor(n*phi^18), where phi is the golden ratio, A001622.
%H G. C. Greubel, <a href="/A004933/b004933.txt">Table of n, a(n) for n = 0..10000</a>
%t With[{p=GoldenRatio^18},Floor[p*Range[0,30]]] (* _Harvey P. Dale_, Mar 06 2022 *)
%o (Magma) [Floor((2889+1292*Sqrt(5))*n): n in [0..60]]; // _G. C. Greubel_, Sep 11 2023
%o (SageMath) [floor(golden_ratio^(18)*n) for n in range(61)] # _G. C. Greubel_, Sep 11 2023
%Y Cf. A004919, A004920, A004921, A004922, A004923, A004924, A004925.
%Y Cf. A004926, A004927, A004928, A004929, A004930, A004931, A004932.
%Y Cf. A004934, A004935, A004976, A066096, A090909.
%Y Cf. A001622.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
|
