login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers that have at least one exponent in their canonical prime factorization that is divisible by 3.
2

%I #13 Jan 22 2024 01:27:14

%S 8,24,27,40,54,56,64,72,88,104,108,120,125,135,136,152,168,184,189,

%T 192,200,216,232,248,250,264,270,280,296,297,312,320,328,343,344,351,

%U 360,375,376,378,392,408,424,432,440,448,456,459,472,488,500,504,512,513,520

%N Numbers that have at least one exponent in their canonical prime factorization that is divisible by 3.

%C Each term has a unique representation of as product of two numbers: one is a cube (A000578) and the second is a number that is not in this sequence.

%C The asymptotic density of this sequence is 1 - zeta(3) * Product_{p prime} (1 - 2/p^3 + 1/p^4) = 0.10483363599014046584... .

%C From _Amiram Eldar_, Jan 22 2024: (Start)

%C The complement of this sequence is the sequence of numbers called "unitarily 3-free", or "3-skew", by Cohen (1961).

%C He proved that the asymptotic density of unitarily k-free, i.e., numbers whose prime factorization contain no exponent that is divisible by k, is zeta(k) * Product_{p prime} (1 - 2/p^k + 1/p^(k+1)) (see p. 228, eq. 3.18). (End)

%H Amiram Eldar, <a href="/A366761/b366761.txt">Table of n, a(n) for n = 1..10000</a>

%H Eckford Cohen, <a href="http://pub.acta.hu/acta/showCustomerArticle.action?id=7038&amp;dataObjectType=article&amp;returnAction=showCustomerVolume&amp;sessionDataSetId=3fe5dd60a67f39f9">Some sets of integers related to the k-free integers</a>, Acta Sci. Math. (Szeged), Vol. 22, No. 3-4 (1961), pp. 223-233.

%F Sum_{n>=1} 1/a(n)^s = zeta(s) * (1 - zeta(3*s) * Product_{p prime} (1 - 2/p^(3*s) + 1/p^(4*s))), for s > 1.

%t q[n_] := ! AllTrue[FactorInteger[n][[;; , 2]], ! Divisible[#, 3] &]; Select[Range[500], q]

%o (PARI) is(n) = {my(f = factor(n)); for(i = 1, #f~, if(!(f[i, 2]%3), return(1))); 0;}

%Y A000578 is a subsequence.

%Y Cf. A002117, A182120, A366762.

%K nonn,easy

%O 1,1

%A _Amiram Eldar_, Oct 21 2023