|
|
A240991
|
|
Integers m such that A240923(m) = 1.
|
|
1
|
|
|
6, 18, 28, 117, 162, 196, 496, 775, 1458, 8128, 9604, 13122, 15376, 19773, 24025, 88723, 118098, 257049, 470596, 744775, 796797, 1032256, 1062882, 2896363, 6725201, 9565938, 12326221, 14776336, 23059204, 25774633, 27237961, 33550336, 43441281, 63455131
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Perfect numbers (A000396) are a subsequence, since they satisfy sigma(m)/m = 2/1 = (sigma(1)+ 1)/1, that is of the form (sigma(d)+1)/d, with sigma being A000203.
Similarly, k-multiperfect numbers satisfy A240923(m) = k-1.
The analogous sequence of integers such that A240923(m) = 0 is A014567.
Holdener et al. say that these numbers have a quasi-friendly divisor and prove that they cannot have more than two distinct prime divisors. - Michel Marcus, Sep 08 2020
|
|
LINKS
|
|
|
MAPLE
|
filter:= proc(n) uses numtheory; local r; r:= sigma(n)/n; numer(r) - sigma(denom(r)) = 1 end proc:
|
|
MATHEMATICA
|
a240923[n_Integer] :=
Numerator[DivisorSigma[1, n]/n] -
DivisorSigma[1, Denominator[DivisorSigma[1, n]/n]];
a240991[n_Integer] := Flatten[Position[Thread[a240923[Range[n]]], 1]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|