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 A104627 #20 Feb 16 2025 08:32:57 %S A104627 9,10,12,13,14,16,17,20,21,25,36,49,50,54,65,94,125,126,130,141,170, %T A104627 246,324,325,329,340,369,445,644,845,846,850,861,890,966,1165,1686, %U A104627 2209,2210,2214,2225,2254,2330,2529,3050,4414 %N A104627 Numbers having 4 1's in their base-phi representation. %H A104627 Amiram Eldar, <a href="/A104627/b104627.txt">Table of n, a(n) for n = 1..250</a> %H A104627 Jeffrey Shallit, <a href="https://arxiv.org/abs/2305.02672">Proving Properties of phi-Representations with the Walnut Theorem-Prover</a>, arXiv:2305.02672 [math.NT], 2023. %H A104627 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PhiNumberSystem.html">Phi Number System</a>. %F A104627 There is a 24-state automaton accepting exactly the Zeckendorf representation of members of this sequence. - _Jeffrey Shallit_, May 03 2023 %t A104627 q[n_] := Plus @@ RealDigits[n, GoldenRatio, 2*Ceiling[ Log[GoldenRatio, n]] ][[1]] == 4; Select[Range[4500], q] (* _Amiram Eldar_, Jan 20 2022 *) %Y A104627 Cf. A005248, A104626, A104628. %K A104627 nonn,base %O A104627 1,1 %A A104627 _Eric W. Weisstein_, Mar 17 2005