OFFSET
1,2
MATHEMATICA
S[n_] := Block[{k = 1}, While[ ! IntegerQ[k!/n], k++ ]; k]; Do[ If[ IntegerQ[ S[n]/DivisorSigma[0, n]], Print[n]], {n, 1, 3000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 23 2002
EXTENSIONS
More terms from Robert G. Wilson v, Aug 25 2002
More terms from Amiram Eldar, Jan 28 2019
STATUS
approved