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 A075654 #12 Sep 30 2019 09:10:58
%S A075654 3,14,152,224,285,455,902,1518,2013,2079,4823,6655,7104,7584,8493,
%T A075654 8532,9416,14344,15687,18569,20115,20163,20490,22351,25543,26123,
%U A075654 28250,28564,30744,37305,37406,41261,45844,50609,51992,54137,56563,60651
%N A075654 Numbers n such that n + sum of prime factors of n = (n+1) + sum of prime factors of (n+1).
%H A075654 Amiram Eldar, <a href="/A075654/b075654.txt">Table of n, a(n) for n = 1..10000</a>
%e A075654 14 + sum of prime factors of 14 = 14 + 2 + 7 = 23; 15 + sum of prime factors of 15 = 15 + 3 + 5 = 23; hence 14 belongs to the sequence.
%t A075654 s[n_] := n + Apply[Plus, Transpose[FactorInteger[n]][[1]]]; Select[Range[2, 10^5], s[ # ] == s[ # + 1] &]
%t A075654 SequencePosition[Table[n+Total[FactorInteger[n][[All,1]]],{n,70000}],{x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 23 2017 *)
%Y A075654 Cf. A008472, A075653.
%K A075654 nonn
%O A075654 1,1
%A A075654 _Joseph L. Pe_, Oct 11 2002