|
|
A162642
|
|
Number of odd exponents in the canonical prime factorization of n.
|
|
30
|
|
|
0, 1, 1, 0, 1, 2, 1, 1, 0, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 2, 2, 1, 2, 0, 2, 1, 1, 1, 3, 1, 1, 2, 2, 2, 0, 1, 2, 2, 2, 1, 3, 1, 1, 1, 2, 1, 1, 0, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 0, 2, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 0, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 0, 1, 3, 1, 2, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
COMMENTS
|
a(n) is also known as the squarefree rank of n. - Jason Kimberley, Jul 08 2017
The number of primes that are infinitary divisors of n. - Amiram Eldar, Oct 01 2023
|
|
LINKS
|
R. B. Eggleton, J. S. Kimberley and J. A. MacDougall, Square-free rank of integers, Journal of Combinatorial Mathematics and Combinatorial Computing, Vol. 106 (2018).
|
|
FORMULA
|
G.f.: Sum_{i>=1} Sum_{j>=1} (-1)^j x^(prime(i)^j)/(x^(prime(i)^j) - 1). - Robert Israel, Jan 15 2016
(End)
Sum_{k=1..n} a(k) = n * log(log(n)) + c * n + O(n/log(n)), where c = gamma + Sum_{p prime} (log(1-1/p) + 1/(p+1)) = A077761 - A179119 = -0.0687327134... and gamma is Euler's constant (A001620). - Amiram Eldar, Dec 25 2021
|
|
MAPLE
|
A162642 := proc(n) add ( op(2, f) mod 2 , f=ifactors(n)[2]) ; end proc: # R. J. Mathar, Mar 30 2011
|
|
MATHEMATICA
|
{0}~Join~Table[Count[Last /@ FactorInteger@ n, e_ /; OddQ@ e], {n, 2, 105}] (* Michael De Vlieger, Jan 06 2016 *)
|
|
PROG
|
(Magma) A162642:=func<n|#{pe:pe in Factorisation(n)|IsOdd(pe[2])}>;
(PARI) a(n) = {my(f = factor(n)); sum(k=1, #f~, f[k, 2] % 2); } \\ Michel Marcus, Jan 08 2016
|
|
CROSSREFS
|
Cf. A000290 (positions of zeros), A001221, A001620, A002035, A007913, A056169, A162641, A295316, A295659, A295662, A295664.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|