cp's OEIS Frontend

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.

A336222 Numbers k such that the square root of the largest square dividing k has an even number of prime divisors (counted with multiplicity).

This page as a plain text file.
%I A336222 #11 Jul 14 2020 03:39:06
%S A336222 1,2,3,5,6,7,10,11,13,14,15,16,17,19,21,22,23,26,29,30,31,32,33,34,35,
%T A336222 36,37,38,39,41,42,43,46,47,48,51,53,55,57,58,59,61,62,65,66,67,69,70,
%U A336222 71,72,73,74,77,78,79,80,81,82,83,85,86,87,89,91,93,94,95
%N A336222 Numbers k such that the square root of the largest square dividing k has an even number of prime divisors (counted with multiplicity).
%C A336222 Numbers k such that A000188(k) is a term of A028260.
%C A336222 The squarefree numbers (A005117) are terms of this sequence since if k is squarefree, then A000188(k) = 1, 1 has 0 prime divisors, and 0 is even.
%C A336222 A number k is a term if and only if its powerful part, A057521(k), is a term.
%C A336222 The asymptotic density of this sequence is 7/10 (Cohen, 1964).
%C A336222 The corresponding sequence of numbers k such that the square root of the largest square dividing k has an even number of distinct prime divisors, i.e., numbers k such that A000188(k) is a term of A030231, is A333634.
%H A336222 Amiram Eldar, <a href="/A336222/b336222.txt">Table of n, a(n) for n = 1..10000</a>
%H A336222 Eckford Cohen, <a href="https://doi.org/10.1090/S0002-9947-1964-0166181-5">Some asymptotic formulas in the theory of numbers</a>, Trans. Amer. Math. Soc., Vol. 112 (1964), pp. 214-227.
%e A336222 2 is a term since the largest square dividing 2 is 1, sqrt(1) = 1, 1 has 0 prime divisors, and 0 is even.
%e A336222 16 is a term since the largest square dividing 16 is 16, sqrt(16) = 4, 4 = 2 * 2 has 2 prime divisors, and 2 is even.
%t A336222 f[p_, e_] := p^Floor[e/2]; Select[Range[100], EvenQ[PrimeOmega[Times @@ (f @@@ FactorInteger[#])]] &]
%Y A336222 Cf. A000188, A001222, A005117, A028260, A030231, A057521, A333634.
%K A336222 nonn
%O A336222 1,2
%A A336222 _Amiram Eldar_, Jul 12 2020