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 A379384 #16 Dec 30 2024 17:01:49
%S A379384 1,3,4,7,6,9,8,15,13,18,12,15,14,24,19,31,18,27,20,37,32,36,24,27,31,
%T A379384 42,40,49,30,33,32,63,48,54,41,39,38,60,56,67,42,65,44,84,49,72,48,51,
%U A379384 57,93,72,98,54,81,72,91,80,90,60,63,62,96,95,127,84,97,68
%N A379384 Sum of the divisors of n except the "e" divisors described in A005279.
%C A379384 Shares infinitely many terms with A000203.
%C A379384 a(n) = A000203(n) if n is not in A005279.
%C A379384 a(n) < A000203(n) if n is in A005279.
%t A379384 a[n_] := Module[{d = Partition[Divisors[n], 2, 1]}, 1 + Total[Select[d, #[[2]] >= 2*#[[1]] &][[;; , 2]]]]; Array[a, 100] (* _Amiram Eldar_, Dec 22 2024 *)
%Y A379384 Row sums of A379374.
%Y A379384 Cf. A000203, A005279, A237271, A237593, A379288, A379379.
%K A379384 nonn
%O A379384 1,2
%A A379384 _Omar E. Pol_, Dec 22 2024
%E A379384 More terms from _Alois P. Heinz_, Dec 22 2024