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 A178493 #23 Feb 16 2025 08:33:12
%S A178493 1,2,3,2,3,4,5,2,3,4,5,4,5,6,7,2,3,4,5,4,5,6,7,4,5,6,7,6,7,8,9,2,3,4,
%T A178493 5,4,5,6,7,4,5,6,7,6,7,8,9,4,5,6,7,6,7,8,9,6,7,8,9,8,9,10,11,2,3,4,5,
%U A178493 4,5,6,7,4,5,6,7,6,7,8,9,4,5,6,7,6,7,8
%N A178493 Numbers of powers of phi in base-phi expansion of phi-antipalindromic numbers (A178482).
%H A178493 Amiram Eldar, <a href="/A178493/b178493.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from T. D. Noe)
%H A178493 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PhiNumberSystem.html">Phi Number System</a>
%t A178493 powNum[1] = 1; powNum[n_] := Module[{d = RealDigits[n, GoldenRatio, 2*Ceiling[Log[GoldenRatio, n]]]}, e = d[[2]] - Flatten @ Position[d[[1]], 1]; If[Reverse[e] == -e, Length[e], 0]]; Select[Array[powNum, 400], # > 0 &] (* _Amiram Eldar_, Apr 23 2020 *)
%Y A178493 Cf. A178482, A005248, A055778, A104605, A104626, A104627, A104628.
%K A178493 nonn,base
%O A178493 1,2
%A A178493 _Vladimir Shevelev_, May 28 2010, May 30 2010
%E A178493 Extended by _T. D. Noe_, May 20 2011