%I #16 Jul 04 2021 14:13:22
%S 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 45,46,48,49,51,54,55,57,59,62,63,65,68,71,72,74,75,77,79,82,83,85,86,
%U 88,91,92,94,96,99,101,104,106,107,109,110
%N Numbers k such that b(k) < b(k+1), where b = A050170.
%C Complement of A050173.
%H Ivan Neretin, <a href="/A050172/b050172.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 nonn
%O 1,2
%A _Clark Kimberling_