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 A349869 #9 Dec 06 2021 03:11:48 %S A349869 36,48,100,112,144,162,192,196,208,324,400,448,576,784,832,900,1296, %T A349869 1458,1600,1764,1936,1984,2304,2368,2500,2704,2752,2916,3072,3136, %U A349869 3600,3904,4288,4356,4624,4672,4900,5184,5776,6084,6208,6400,6976,7056,7168,7744,8100 %N A349869 Nobly deficient numbers (A349759) that are not deficient numbers (A005100). %H A349869 Amiram Eldar, <a href="/A349869/b349869.txt">Table of n, a(n) for n = 1..10000</a> %e A349869 36 is a term since it is not deficient, A000203(36) = 91 > 2*36 = 72, and both A000005(36) = 9 and A000203(36) = 91 are deficient. %t A349869 defQ[n_] := DivisorSigma[1, n] < 2*n; nobDefQ[n_] := And @@ defQ /@ DivisorSigma[{0, 1}, n]; Select[Range[10^4], !defQ[#] && nobDefQ[#] &] %Y A349869 Intersection of A023196 and A349759. %Y A349869 Cf. A000005, A000203, A005100, A349868. %K A349869 nonn %O A349869 1,1 %A A349869 _Amiram Eldar_, Dec 03 2021