|
|
A294929
|
|
Number of proper divisors of n that are abundant (A005101).
|
|
9
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 6
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,36
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The proper divisors of 24 are 1, 2, 3, 4, 6, 8, 12. Only one of these, 12, is abundant (in A005101), thus a(24) = 1.
The proper divisors of 120 are 1, 2, 3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60. Six of these are abundant: 12, 20, 24, 30, 40, 60, thus a(120) = 6.
|
|
MATHEMATICA
|
a[n_] := Count[Most[Divisors[n]], _?(DivisorSigma[1, #] > 2*# &)]; Array[a, 100] (* Amiram Eldar, Mar 14 2024 *)
|
|
PROG
|
(PARI) A294929(n) = sumdiv(n, d, (d<n)*(sigma(d)>(2*d)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|