login
Numbers of the form floor(r^i + s^j), where r = (1 + sqrt(5))/2, s = r^2, i >= 0, j >= 0.
1

%I #11 May 07 2015 11:04:09

%S 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,

%T 51,53,58,64,76,77,78,82,93,122,123,124,125,127,129,134,140,152,169,

%U 199,200,201,205,216,245,321,322,323,324,326,328,333,339,351,368

%N Numbers of the form floor(r^i + s^j), where r = (1 + sqrt(5))/2, s = r^2, i >= 0, j >= 0.

%t 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 *)

%Y Cf. A001622, A104457.

%Y Cf. A257672.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 03 2015