A294927 - OEIS

A294927

Number of proper divisors of n that are nondeficient (A023196).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 3, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 4, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 4, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 4, 0, 0, 0, 1, 0, 1, 0, 0, 0

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,24

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..20000

FORMULA

a(n) = Sum_{d|n, d<n} A294936(d).

a(n) + A294926(n) = A032741(n).

MATHEMATICA

a[n_] := DivisorSum[n, 1 &, # < n && DivisorSigma[1, #] >= 2*# &]; Array[a, 100] (* Amiram Eldar, Mar 14 2024 *)

PROG

(PARI) A294927(n) = sumdiv(n, d, (d<n)*(sigma(d)>=(2*d)));