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 A104626 #35 Feb 16 2025 08:32:57
%S A104626 4,5,6,8,19,48,124,323,844,2208,5779,15128,39604,103683,271444,710648,
%T A104626 1860499,4870848,12752044,33385283,87403804,228826128,599074579,
%U A104626 1568397608,4106118244,10749957123,28143753124,73681302248
%N A104626 Numbers having three 1's in their base-phi representation.
%H A104626 G. C. Greubel, <a href="/A104626/b104626.txt">Table of n, a(n) for n = 1..1000</a>
%H A104626 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 A104626 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PhiNumberSystem.html">Phi Number System</a>
%H A104626 Wikipedia, <a href="http://en.wikipedia.org/wiki/Golden_ratio_base">Golden ratio base</a>
%F A104626 {n: A055778(n) = 3}. - _R. J. Mathar_, Sep 05 2010
%F A104626 a(n) = Lucas(2*n-4) + 1, for n>3. - _Ralf Stephan_, Nov 13 2010
%t A104626 Join[{4, 5, 6}, Table[LucasL[2*n-4] + 1, {n, 4, 50}]] (* _G. C. Greubel_, Aug 13 2018 *)
%o A104626 (PARI) for(n=1,50, print1(if(n==1,4, if(n==2, 5, if(n==3, 6, 1 + fibonacci(2*n-3) + fibonacci(2*n-5)))), ", ")) \\ _G. C. Greubel_, Aug 13 2018
%o A104626 (Magma) [4,5,6] cat [1 + Fibonacci(2*n-3) + Fibonacci(2*n-5): n in [4..50]]; // _G. C. Greubel_, Aug 13 2018
%Y A104626 Cf. A005248, A104627, A104628, A065034.
%K A104626 nonn
%O A104626 1,1
%A A104626 _Eric W. Weisstein_, Mar 17 2005
%E A104626 Terms 5 and 6 added by _Jaroslav Krizek_, May 25 2010
%E A104626 Edited by _R. J. Mathar_, Sep 05 2010