%I #18 Oct 27 2023 10:02:57

%S 0,29,58,87,116,145,174,203,232,261,290,319,348,377,406,436,465,494,

%T 523,552,581,610,639,668,697,726,755,784,813,842,871,900,929,958,987,

%U 1016,1045,1074,1103,1132,1161,1190,1219,1248,1278,1307,1336,1365,1394,1423,1452,1481,1510,1539,1568,1597,1626,1655,1684

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

%H Vincenzo Librandi, <a href="/A004942/b004942.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[Round[n GoldenRatio^7], {n, 0, 100}] (* _Vincenzo Librandi_, Oct 21 2014 *)

%o (PARI) ph=(1+sqrt(5))/2; a(n)=round(n*ph^7);

%o vector(66,n,a(n-1)) \\ _Joerg Arndt_, Oct 21 2014

%Y Cf. A001622, A004939, A004940, A004941, A004943.

%K nonn

%O 0,2

%A _N. J. A. Sloane_

%E More terms from _Joerg Arndt_, Oct 21 2014