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

0, 29, 58, 87, 116, 145, 174, 203, 232, 261, 290, 319, 348, 377, 406, 436, 465, 494, 523, 552, 581, 610, 639, 668, 697, 726, 755, 784, 813, 842, 871, 900, 929, 958, 987, 1016, 1045, 1074, 1103, 1132, 1161, 1190, 1219, 1248, 1278, 1307, 1336, 1365, 1394, 1423, 1452, 1481, 1510, 1539, 1568, 1597, 1626, 1655, 1684

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Mathematica

Table[Round[n GoldenRatio^7], {n, 0, 100}] (* Vincenzo Librandi, Oct 21 2014 *)

Prog

(PARI) ph=(1+sqrt(5))/2; a(n)=round(n*ph^7);
vector(66, n, a(n-1)) \\ Joerg Arndt, Oct 21 2014

Crossrefs

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

Sequence in context: A248786 A004922 A249079 * A033904 A184073 A080170

Adjacent sequences: A004939 A004940 A004941 * A004943 A004944 A004945

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Joerg Arndt, Oct 21 2014

Status

approved