Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #21 Dec 19 2021 16:17:55
%S 8,9,10,12,14,15,20,21,26,28,33,35,38,39,40,44,48,51,54,56,62,65,68,
%T 69,76,77,80,86,88,91,93,95,96,111,112,116,122,123,124,129,133,136,
%U 146,148,152,159,161,176,188,189,198,201,203,206,209,210,213,215,217,218
%N Composite numbers k with the property that k minus the sum of the prime factors of k is prime.
%C Prime factors are totaled with multiplicity, e.g., 8 = 2*2*2 so the sum of the prime factors of 8 is 6. - _Harvey P. Dale_, Jun 14 2011
%H Amiram Eldar, <a href="/A050704/b050704.txt">Table of n, a(n) for n = 1..10000</a>
%e E.g., 161 = 7*23; 161 - (7 + 23) = 161 - 30 = 131, which is prime.
%t Select[Range[250],CompositeQ[#]&&PrimeQ[#-Total[Times@@@ FactorInteger[ #]]]&] (* _Harvey P. Dale_, Jun 14 2011 *)
%Y Cf. A050703-A050710.
%K nonn,nice
%O 1,1
%A _Patrick De Geest_, Aug 15 1999