This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A187485 #16 Apr 05 2020 21:20:58
%S A187485 1,2,4,5,6,7,9,10,12,13,14,15,17,18,19,20,22,23,25,26,27,28,30,31,33,
%T A187485 34,35,36,38,39,40,41,43,44,46,47,48,49,51,52,53,54,56,57,59,60,61,62,
%U A187485 64,65,67,68,69,70,72,73,74,75,77,78,80,81,82,83,85,86,88,89,90,91,93,94,95,96,98,99,101,102,103,104,106,107,108,109,111,112,114,115,116,117,119,120
%N A187485 Positions of 0's in A123740; complement of A003623.
%C A187485 See A187950.
%t A187485 r=(1+5^(1/2))/2;
%t A187485 seqA=Table[Floor[(n+4)r]-Floor[n*r]-6, {n,1,220}] (* A123740 *)
%t A187485 Flatten[Position[seqA,0] ] (* A187485 *)
%t A187485 Flatten[Position[seqA,1] ] (* A003623 *)
%Y A187485 Cf. A187950, A123740, A187485.
%K A187485 nonn
%O A187485 1,2
%A A187485 _Clark Kimberling_, Mar 16 2011
%E A187485 Name corrected by _Michel Dekking_, Jan 17 2017