|
|
A087234
|
|
Smallest deficient number with n distinct prime factors.
|
|
1
|
|
|
2, 10, 105, 1155, 36465, 969969, 37182145, 1078282205, 39896441585, 2668861960765, 183330286997165, 14415008697720995, 775932344695001065, 45780008337005062835, 3909612711980232366109, 261944051702675568529303, 18598027670889965365580513
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(14) <= 45780008337005062835;
a(15) <= 3909612711980232366109;
a(16) <= 261944051702675568529303. (End)
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Min{x; sigma(x)/2x < 1 and A001221(x) = n}.
|
|
EXAMPLE
|
For n=5: a(5) = 36465 = 3*5*11*13*17; sigma(36465) = 72576 < 72930 = 2*sigma(a(5)).
|
|
MATHEMATICA
|
q[x_] := Apply[Times, Table[Prime[w], {w, 1, x}]]; q[0]=1; Do[s=DivisorSigma[1, n]; If[Greater[2*n, s]&&Equal[lf[n], j]&& Equal[fl, 1], Print[{n, {s, 2*n}, j}]; fl=0], {n, q[j], q[j+2]}], {j, 1, 6}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|