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 A050172 #16 Jul 04 2021 14:13:22
%S A050172 1,2,3,5,6,8,9,11,13,14,16,18,21,22,24,25,27,30,31,33,34,36,39,40,42,
%T A050172 45,46,48,49,51,54,55,57,59,62,63,65,68,71,72,74,75,77,79,82,83,85,86,
%U A050172 88,91,92,94,96,99,101,104,106,107,109,110
%N A050172 Numbers k such that b(k) < b(k+1), where b = A050170.
%C A050172 Complement of A050173.
%H A050172 Ivan Neretin, <a href="/A050172/b050172.txt">Table of n, a(n) for n = 1..10000</a>
%t A050172 kmax = 110;(* b = A050170 *) b[1] = 1; b[n_] := b[n] = If[FreeQ[Join[{0}, Array[b, n - 1]], f = Floor[b[n - 1]/Sqrt[5]]], f, Floor[b[n - 1]*Sqrt[5]]]; Reap[For[k = 1, k <= kmax, k++, If[b[k] < b[k + 1], Sow[k]]]][[2, 1]] (* _Jean-François Alcover_, Sep 12 2017 *)
%K A050172 nonn
%O A050172 1,2
%A A050172 _Clark Kimberling_