OFFSET
1,1
MATHEMATICA
Select[Range[200], Floor[3*GoldenRatio*#]-3Floor[GoldenRatio*#]==0&] (* Harvey P. Dale, Feb 02 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Fred Lunnon, Jun 20 2008
EXTENSIONS
Extended by Max Alekseyev, Apr 11 2009
STATUS
approved