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 A354603 #10 Sep 07 2022 11:10:45
%S A354603 3,7,14,31,127,206,2974,8191,19358,20490,131071,147454,286122,289650,
%T A354603 292332,441276,524287,909498,1207358,1657968,1782540,2490042,3368860,
%U A354603 9274806,11367402,14107852,16776156,18589386,22910988,24450316,26867718,28959606,32674506,33163372
%N A354603 Numbers k such that sum of distinct primes dividing k is equal to the sum of proper divisors of k+1.
%C A354603 Numbers k such that A008472(k) = A001065(k+1). All Mersenne primes are terms.
%e A354603 Example: 14 is a term because A008472(14) = 2+7 = A001065(15) = 1+3+5.
%t A354603 Select[Range[19358],Sum[f, {f, Select[Divisors[#], PrimeQ]}]==DivisorSigma[1,#+1]-(#+1)&]
%Y A354603 Cf. A000668, A001065, A008472, A006145.
%K A354603 nonn
%O A354603 1,1
%A A354603 _Metin Sariyar_, Jul 08 2022
%E A354603 More terms from _Amiram Eldar_, Jul 08 2022