login
Sums of two distinct refactorable numbers.
0

%I #41 Apr 20 2020 19:01:02

%S 3,9,10,11,13,14,17,19,20,21,25,26,27,30,32,33,36,37,38,41,42,44,45,

%T 48,49,52,54,57,58,60,61,62,64,65,68,69,72,73,74,76,78,80,81,82,84,85,

%U 86,88,89,90,92,93,96,97,98,100,102,104,105,106,108,109,110

%N Sums of two distinct refactorable numbers.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RefactorableNumber.html">Refactorable Number</a>

%t Flatten[Table[If[Sum[ (1 - Ceiling[i/DivisorSigma[0, i]] + Floor[i/DivisorSigma[0, i]]) (1 - Ceiling[(n - i)/DivisorSigma[0, n - i]] + Floor[(n - i)/DivisorSigma[0, n - i]]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 100}]]

%Y Cf. A033950.

%K nonn

%O 1,1

%A _Wesley Ivan Hurt_, Jul 24 2019