A179241 Powers of sqrt(5) - 1 rounded down.
1, 1, 1, 2, 2, 3, 4, 5, 6, 8, 10, 12, 15, 19, 24, 29, 36, 45, 56, 69, 85, 105, 130, 161, 200, 247, 305, 377, 466, 577, 713, 881, 1089, 1347, 1665, 2058, 2544, 3144, 3887, 4805, 5939, 7341, 9074, 11216, 13864, 17137, 21183, 26183, 32364, 40005, 49449, 61122
Offset: 1
Programs
-
Mathematica
Array[Floor[(Sqrt@5 - 1)^# ] &, 51] (* Robert G. Wilson v, Jul 12 2010 *)
Formula
a(n) = floor((sqrt(5)-1)^n).
Extensions
More terms from Vincenzo Librandi and Robert G. Wilson v, Jul 09 2010