This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A294927 #11 Mar 14 2024 03:47:22 %S A294927 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, %T A294927 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, %U A294927 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 %N A294927 Number of proper divisors of n that are nondeficient (A023196). %H A294927 Antti Karttunen, <a href="/A294927/b294927.txt">Table of n, a(n) for n = 1..20000</a> %F A294927 a(n) = Sum_{d|n, d<n} A294936(d). %F A294927 a(n) + A294926(n) = A032741(n). %t A294927 a[n_] := DivisorSum[n, 1 &, # < n && DivisorSigma[1, #] >= 2*# &]; Array[a, 100] (* _Amiram Eldar_, Mar 14 2024 *) %o A294927 (PARI) A294927(n) = sumdiv(n, d, (d<n)*(sigma(d)>=(2*d))); %Y A294927 Cf. A023196, A032741, A071395, A294887, A294926, A294928, A294929, A294936. %K A294927 nonn %O A294927 1,24 %A A294927 _Antti Karttunen_, Nov 14 2017