A374589 -id:A374589 - cp's OEIS frontend

A374590 Numbers whose maximum exponent in their prime factorization is an evil number (A001969).

8, 24, 27, 32, 40, 54, 56, 64, 72, 88, 96, 104, 108, 120, 125, 135, 136, 152, 160, 168, 184, 189, 192, 200, 216, 224, 232, 243, 248, 250, 264, 270, 280, 288, 296, 297, 312, 320, 328, 343, 344, 351, 352, 360, 375, 376, 378, 392, 408, 416, 424, 440, 448, 456, 459

Offset: 1

Amiram Eldar, Jul 12 2024

The asymptotic density of this sequence is Sum_{k in A001969} (1/zeta(k+1) - 1/zeta(k)) = 0.12101890210392912747... .

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A001969, A051903.
Subsequence of A013929 and A262675 \ {1}.
Similar sequences: A368714, A369937, A369938, A369939, A374588, A374589.

evilQ[n_] := EvenQ[DigitCount[n, 2, 1]]; q[n_] := evilQ[Max[FactorInteger[n][[;; , 2]]]]; Select[Range[500], q]

is(n) = n > 1 && !(hammingweight(vecmax(factor(n)[, 2])) % 2);

A374588 Numbers whose maximum exponent in their prime factorization is a composite number.

Original entry on oeis.org

16, 48, 64, 80, 81, 112, 144, 162, 176, 192, 208, 240, 256, 272, 304, 320, 324, 336, 368, 400, 405, 432, 448, 464, 496, 512, 528, 560, 567, 576, 592, 624, 625, 648, 656, 688, 704, 720, 729, 752, 768, 784, 810, 816, 832, 848, 880, 891, 912, 944, 960, 976, 1008

Offset: 1

Amiram Eldar, Jul 12 2024

Subsequence of A322448 and first differs from it at n = 138: A322448(138) = 2592 = 2^5 * 3^4 is not a term of this sequence.

The asymptotic density of this sequence is d = Sum_{k composite} (1/zeta(k+1) - 1/zeta(k)) = 0.05296279266796920306... . The asymptotic density of this sequence within the nonsquarefree numbers (A013929) is d / (1 - 1/zeta(2)) = 0.13508404411123191108... .

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A002808, A013661, A051903, A229099.
Complement of A074661 within A013929.
Subsequence of A322448 and A322449 \ {1}.
Similar sequences: A368714, A369937, A369938, A369939, A374589, A374590.

filter:= proc(n) local m;
  m:= max(ifactors(n)[2][..,2]);
  m > 1 and not isprime(m)
end proc:
select(filter, [$1..10000]); # Robert Israel, Jul 14 2024

Select[Range[1200], CompositeQ[Max[FactorInteger[#][[;; , 2]]]] &]

iscomposite(n) = n > 1 && !isprime(n);
is(n) = n > 1 && iscomposite(vecmax(factor(n)[, 2]));

cp's OEIS Frontend

A374590 Numbers whose maximum exponent in their prime factorization is an evil number (A001969).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI