login
a(n) = ceiling(n*phi^7), where phi is the golden ratio, A001622.
6

%I #25 Sep 08 2022 08:44:33

%S 0,30,59,88,117,146,175,204,233,262,291,320,349,378,407,436,465,494,

%T 523,552,581,610,639,668,697,726,755,784,813,842,872,901,930,959,988,

%U 1017,1046,1075,1104,1133,1162,1191,1220,1249,1278,1307,1336,1365,1394,1423,1452,1481,1510,1539,1568,1597,1626,1655,1684,1714

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

%H Karl V. Keller, Jr., <a href="/A004962/b004962.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[Ceiling[n ((1 + Sqrt[5])/2)^7], {n, 0, 60}] (* _Vincenzo Librandi_, Jul 22 2015 *)

%t Ceiling[Range[0,60]GoldenRatio^7] (* _Harvey P. Dale_, Nov 18 2018 *)

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

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

%o (Magma) [Ceiling(n*((1 + Sqrt(5))/2)^7): n in [0..60]]; // _Vincenzo Librandi_, Jul 22 2015

%Y Cf. A004922 (floor).

%K nonn

%O 0,2

%A _N. J. A. Sloane_

%E More terms added by _Joerg Arndt_, Oct 18 2014