OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Refactorable Number
MATHEMATICA
Flatten[Table[If[Sum[ (1 - Ceiling[(i (n - i))/DivisorSigma[0, i (n - i)]] + Floor[(i (n - i))/DivisorSigma[0, i (n - i)]]) (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, 150}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jul 24 2019
STATUS
approved