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 A332976 #4 Mar 04 2020 18:10:01
%S A332976 3,8,10,21,3237,7377,146139,584835,9988999095,25997557299
%N A332976 Solutions k of the equation s(k) = s(k-1) + s(k-2) where s(k) = isigma(k) - k is the sum of proper infinitary divisors of k (A126168).
%e A332976 8 is a term since s(8) = 7 and s(6) + s(7) = 6 + 1 = 7.
%t A332976 fun[p_, e_] := Module[{b = IntegerDigits[e, 2]}, m = Length[b]; Product[If[b[[j]] > 0, 1 + p^(2^(m - j)), 1], {j, 1, m}]]; isigma[1] = 1; isigma[n_] := Times @@ fun @@@ FactorInteger[n]; s[n_] := isigma[n] - n; Select[Range[3, 6*10^5], s[#] == s[# - 1] + s[# - 2] &]
%Y A332976 The infinitary version of A291176.
%Y A332976 Cf. A065557, A065900, A075565, A076136, A076251, A126168, A145469, A291126, A292033, A294995, A332975.
%K A332976 nonn,more
%O A332976 1,1
%A A332976 _Amiram Eldar_, Mar 04 2020