%I #8 Feb 02 2017 14:01:47
%S 2,5,7,10,13,15,18,23,26,28,31,34,36,39,44,47,49,52,57,60,62,65,68,70,
%T 73,78,81,83,86,89,91,94,96,99,102,104,107,112,115,117,120,123,125,
%U 128,133,136,138,141,146,149,151,154,157,159,162,167,170,172,175,178,180
%N Numbers n such that A140397(n) = 0.
%t Select[Range[200],Floor[3*GoldenRatio*#]-3Floor[GoldenRatio*#]==0&] (* _Harvey P. Dale_, Feb 02 2017 *)
%K nonn
%O 1,1
%A _Fred Lunnon_, Jun 20 2008
%E Extended by _Max Alekseyev_, Apr 11 2009