A257671 Numbers of the form floor(r^i + s^j), where r = (1 + sqrt(5))/2, s = r^2, i >= 0, j >= 0.
2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 17, 18, 19, 20, 22, 24, 29, 30, 31, 35, 46, 47, 48, 49, 51, 53, 58, 64, 76, 77, 78, 82, 93, 122, 123, 124, 125, 127, 129, 134, 140, 152, 169, 199, 200, 201, 205, 216, 245, 321, 322, 323, 324, 326, 328, 333, 339, 351, 368
Offset: 1
Programs
-
Mathematica
mx = 400; r = GoldenRatio; s = r/(r - 1); Union@ Flatten@ Table[ Floor[r^i + s^j], {i, Log[r, mx]}, {j, 0, Log[s, mx - r^i]}] (* iterators modified by Robert G. Wilson v, May 07 2015 *)