OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
kemp[n_] := Module[{m = 1}, While[!IntegerQ[m!/n], m++]; m]; aQ[n_] := kemp[n + 2] == DivisorSigma[0, n] + 2; Select[Range[1000], aQ] (* Amiram Eldar, Jan 20 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 27 2002
EXTENSIONS
a(21)-a(46) from Amiram Eldar, Jan 20 2019
STATUS
approved