Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #6 Jan 15 2022 23:32:09
%S 90,208,867,1161,1674,2139,2295,2821,3683,9675,10374,11357,14823,
%T 17685,20436,23750,23895,28035,39039,39962,43687,43813,47564,63624,
%U 75615,79281,97382,100855,103246,119350,124749,126575,136344,157250,178503,201877,218368,220375
%N Sum of the prime factors of k equals half the sum of the prime factors of k + 1.
%e The sum of the prime factors of 90 = 2 * 3^2 * 5 is 2 + 3 + 5 = 10; the sum of the prime factors of 91 = 7 * 13 = 20. Hence 90 belongs to the sequence.
%t p[n_] := Apply[Plus, Transpose[FactorInteger[n]][[1]]]; Select[Range[2, 10^5], 2*p[ # ] == p[ # + 1] &]
%o (PARI) is(k) = 2*vecsum(factor(k)[,1]) == vecsum(factor(k+1)[,1]); \\ _Jinyuan Wang_, Jan 15 2022
%Y Cf. A008472.
%K nonn
%O 1,1
%A _Joseph L. Pe_, Oct 18 2002
%E Offset changed to 1 and more terms from _Jinyuan Wang_, Jan 15 2022