A125841 Numbers k such that previous_prime(k)=k-sd and next_prime(k)=k+sd where sd is sum of the distinct prime factors of k.
144, 288, 1728, 5184, 7168, 11760, 21632, 21952, 73500, 110592, 113400, 114244, 151263, 153790, 186624, 205800, 235298, 250563, 663552, 708588, 1404928, 2976750, 3449628, 4738500, 5265000, 7077888, 9437184, 11529602, 11745162
Offset: 1
Examples
113400=2^3*3^4*5^2*7 is a term because previous_prime(113400)=113400-(2+3+5+7) and next_prime(113400)=113400+(2+3+5+7).
Programs
-
Mathematica
Do[If[c=Apply[Plus,PrimeFactorList[n]];n-c==PreviousPrime[n]&&n+c== NextPrime[n],Print[n]],{n,4,20000000}]
Comments