A004962 a(n) = ceiling(n*phi^7), where phi is the golden ratio, A001622.
0, 30, 59, 88, 117, 146, 175, 204, 233, 262, 291, 320, 349, 378, 407, 436, 465, 494, 523, 552, 581, 610, 639, 668, 697, 726, 755, 784, 813, 842, 872, 901, 930, 959, 988, 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
Offset: 0
Keywords
Links
- Karl V. Keller, Jr., Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A004922 (floor).
Programs
-
Magma
[Ceiling(n*((1 + Sqrt(5))/2)^7): n in [0..60]]; // Vincenzo Librandi, Jul 22 2015
-
Mathematica
Table[Ceiling[n ((1 + Sqrt[5])/2)^7], {n, 0, 60}] (* Vincenzo Librandi, Jul 22 2015 *) Ceiling[Range[0,60]GoldenRatio^7] (* Harvey P. Dale, Nov 18 2018 *)
-
PARI
p = (sqrt(5)+1)/2; a(n)=ceil(n*p^7); vector(66,n,a(n-1)) \\ Joerg Arndt, Oct 18 2014
Extensions
More terms added by Joerg Arndt, Oct 18 2014