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 A152674 #7 Dec 02 2023 06:12:53 %S A152674 2,2,2,4,2,4,4,2,6,2,4,4,2,6,2,6,4,4,2,8,4,4,6,2,8,2,6,4,4,4,2,4,4,8, %T A152674 2,8,2,6,6,4,2,10,6,4,6,2,8,4,8,4,4,2,12,2,4,6,4,8,2,6,4,8,2,12,2,4,6, %U A152674 6,4,8,2,10,4,2,12,4,4,4,8,2,12,4,6,4,4,4,12,2,6,6,2,8,2,8 %N A152674 Number of divisors of the numbers that are not squares. %C A152674 Even members of A000005. %H A152674 Amiram Eldar, <a href="/A152674/b152674.txt">Table of n, a(n) for n = 1..10000</a> %F A152674 a(n) = A000005(A000037(n)). %F A152674 a(n) = 2*A095686(n). - _Amiram Eldar_, Dec 02 2023 %t A152674 Select[DivisorSigma[0, Range[100]], EvenQ] (* _Amiram Eldar_, Dec 02 2023 *) %o A152674 (PARI) lista(kmax) = for(k = 1, kmax, if(!issquare(k), print1(numdiv(k), ", "))); \\ _Amiram Eldar_, Dec 02 2023 %Y A152674 Cf. A000005, A000037, A095686. %K A152674 easy,nonn %O A152674 1,1 %A A152674 _Omar E. Pol_, Dec 10 2008