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 A330999 #14 May 19 2025 23:44:36
%S A330999 5,77,714,948,2431,2491,2996,3450,4293,5405,5560,5885,5959,11124,
%T A330999 13869,14587,16932,17080,17346,18468,19551,26642,31931,33019,37925,
%U A330999 42250,47544,48635,49240,52554,53192,60048,79248,80837,89979,95709,98119,98644,99163,108458
%N A330999 Infinitary Ruth-Aaron numbers: numbers k such that A181894(k) = A181894(k+1).
%C A330999 A variation of Ruth-Aaron numbers with "Fermi-Dirac primes" (or infinitary components) instead of prime divisors.
%H A330999 Amiram Eldar, <a href="/A330999/b330999.txt">Table of n, a(n) for n = 1..10000</a>
%e A330999 5 is a term since A181894(5) = A181894(6) = 5.
%t A330999 f[p_, e_] := p^(2^(-1 + Position[Reverse @ IntegerDigits[e, 2], _?(# == 1 &)])); s[1] = 0; s[n_] := Plus @@ (Flatten @ (f @@@ FactorInteger[n])); seq ={}; s1 = 0; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n-1]]; s1 = s2, {n, 2, 10^5}]; seq
%Y A330999 Cf. A006145, A039752, A050376, A181894, A331000.
%K A330999 nonn
%O A330999 1,1
%A A330999 _Amiram Eldar_, Jan 05 2020