OFFSET
1,1
MATHEMATICA
r = GoldenRatio; s = r/(r - 1); Take[Union[Flatten[Table[Floor[r^i] + Floor[s^j], {i, 0, 100}, {j, 0, 100}]]], 100]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 03 2015
STATUS
approved