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 A331000 #9 Jan 06 2020 08:37:10
%S A331000 5,77,714,948,2491,2996,3450,4293,5405,6669,9125,10807,13869,14587,
%T A331000 16932,17346,19511,19967,23323,26642,27104,31931,33019,37925,41124,
%U A331000 43616,48635,52554,55499,58077,58695,79248,80837,86088,89979,95709,98644,99163,108458,117467
%N A331000 Unitary Ruth-Aaron numbers: numbers k such that A008475(k) = A008475(k+1).
%C A331000 A variation of Ruth-Aaron numbers with unitary prime-power divisors instead of prime divisors.
%H A331000 Amiram Eldar, <a href="/A331000/b331000.txt">Table of n, a(n) for n = 1..10000</a>
%e A331000 5 is a term since A008475(5) = A008475(6) = 5.
%t A331000 s[1] = 0; s[n_] := Plus @@ (Power @@@ FactorInteger[n]); seq = {}; s1 = 0; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 10^5}]; seq
%Y A331000 Cf. A006145, A039752, A008475, A330999.
%K A331000 nonn
%O A331000 1,1
%A A331000 _Amiram Eldar_, Jan 05 2020