login
a(n) = floor(n*phi^16), where phi is the golden ratio, A001622.
19

%I #11 Sep 06 2023 01:33:32

%S 0,2206,4413,6620,8827,11034,13241,15448,17655,19862,22069,24276,

%T 26483,28690,30897,33104,35311,37518,39725,41932,44139,46346,48553,

%U 50760,52967,55174,57381,59588,61795

%N a(n) = floor(n*phi^16), where phi is the golden ratio, A001622.

%H G. C. Greubel, <a href="/A004931/b004931.txt">Table of n, a(n) for n = 0..10000</a>

%t Floor[GoldenRatio^(16)*Range[0, 60]] (* _G. C. Greubel_, Sep 06 2023 *)

%o (Magma) [Floor((2207+987*Sqrt(5))*n/2): n in [0..60]]; // _G. C. Greubel_, Sep 06 2023

%o (SageMath) [floor(golden_ratio^(16)*n) for n in range(61)] # _G. C. Greubel_, Sep 06 2023

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

%Y Cf. A004926, A004927, A004928, A004929, A004930, A004932, A004933.

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

%Y Cf. A001622.

%K nonn

%O 0,2

%A _N. J. A. Sloane_