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 A331108 #6 Jan 09 2020 18:12:49
%S A331108 6,60,90,3024,133056,1330560,6879600,28828800,302702400,698544000,
%T A331108 11763214848
%N A331108 Zeckendorf-infinitary perfect numbers: numbers k such that A331107(k) = 2*k.
%C A331108 No more terms below 4*10^10.
%e A331108 6 is a term since A331107(6) = 12 = 2*6.
%t A331108 fb[n_] := Block[{k = Ceiling[Log[GoldenRatio, n*Sqrt[5]]], t = n, fr = {}}, While[k > 1, If[t >= Fibonacci[k], AppendTo[fr, 1]; t = t - Fibonacci[k], AppendTo[fr, 0]]; k--]; Fibonacci[1 + Position[Reverse@fr, _?(# == 1 &)]]]; f[p_, e_] := p^fb[e]; zsigma[1] = 1; zsigma[n_] := Times @@ (Flatten@(f @@@ FactorInteger[n]) + 1); zPerfectQ[n_] := zsigma[n] == 2 n; Select[Range[10^4], zPerfectQ] (* after _Robert G. Wilson v_ at A014417 *)
%Y A331108 Cf. A007357, A038182, A074849, A097464, A331107.
%K A331108 nonn,more
%O A331108 1,1
%A A331108 _Amiram Eldar_, Jan 09 2020