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 A076525 #11 Sep 08 2022 08:45:07 %S A076525 4,22,57,900,1551,1920,4194,6279,10857,19648,20384,32016,63656,65703, %T A076525 83271,84119,86241,105570,145237,181844,271328,271741,316710,322953, %U A076525 331976,345185,379659,381430,409915,424503,490255,524476,542565,550271 %N A076525 Numbers n such that sopf(n) = sopf(n+1) - sopf(n-1), where sopf(x) = sum of the distinct prime factors of x. %H A076525 Amiram Eldar, <a href="/A076525/b076525.txt">Table of n, a(n) for n = 1..10000</a> %e A076525 The sum of the distinct prime factors of 22 is 2 + 11 = 13; the sum of the distinct prime factors of 23 is 23; the sum of the distinct prime factors of 21 is 3 + 7 = 10; and 13 = 23 - 10. Hence 22 belongs to the sequence. %t A076525 p[n_] := Apply[Plus, Transpose[FactorInteger[n]][[1]]]; Select[Range[3, 10^5], p[ # ] == p[ # + 1] - p[ # - 1] &] %o A076525 (Magma) [k:k in [3..560000]| &+PrimeDivisors(k) eq &+PrimeDivisors(k+1)-&+PrimeDivisors(k-1)]; // _Marius A. Burtea_, Oct 10 2019 %Y A076525 Cf. A008472, A075565, A075784, A075846, A076527, A076531, A076532, A076533. %K A076525 nonn %O A076525 1,1 %A A076525 _Joseph L. Pe_, Oct 18 2002 %E A076525 Edited and extended by _Ray Chandler_, Feb 13 2005