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 A349063 #9 Nov 07 2021 06:30:38 %S A349063 2988,4067,7595,13572,14651,24156,25235,27684,28763,34740,35819,38268, %T A349063 39347,41327,46403,48852,49931,56987,59436,66492,70020,78155,81683, %U A349063 87660,88739,91188,98244,99323,101772,102851,108828,109907,112356,113435,119412,120491,122940 %N A349063 Numbers k such that k and k+1 have the same sum of powerful divisors (A183097) and this sum is larger than 1. %C A349063 Numbers k such that A183097(k) = A183097(k+1) > 1. %H A349063 Amiram Eldar, <a href="/A349063/b349063.txt">Table of n, a(n) for n = 1..10000</a> %e A349063 2988 is a term since = A183097(2988) = A183097(2989) = 50 > 1. %t A349063 f[p_, e_] := (p^(e + 1) - 1)/(p - 1) - p; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := (s1 = s[n]) > 1 && s1 == s[n + 1]; Select[Range[10^5], q] %Y A349063 Cf. A183097. %Y A349063 Similar sequences: A002961, A064115, A064125, A293183, A306985. %K A349063 nonn %O A349063 1,1 %A A349063 _Amiram Eldar_, Nov 07 2021