OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Refactorable Number
MATHEMATICA
Flatten[Table[If[Sum[(1 - Ceiling[n/DivisorSigma[0, n]] + Floor[n/DivisorSigma[0, n]]) (1 - Ceiling[n/DivisorSigma[0, n - 1]] + Floor[n/DivisorSigma[0, n - 1]]) , {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 0, 600}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jul 27 2019
STATUS
approved