A241289 -id:A241289 - cp's OEIS frontend

A055460 Number of primes with odd exponents in the prime power factorization of n!.

0, 1, 2, 2, 3, 1, 2, 3, 3, 1, 2, 3, 4, 4, 4, 4, 5, 4, 5, 4, 6, 6, 7, 5, 5, 5, 6, 5, 6, 5, 6, 7, 9, 7, 7, 7, 8, 8, 8, 8, 9, 10, 11, 10, 9, 7, 8, 7, 7, 8, 10, 9, 10, 8, 10, 12, 14, 12, 13, 11, 12, 12, 11, 11, 13, 12, 13, 12, 12, 13, 14, 13, 14, 14, 15, 14, 14, 11, 12, 13, 13, 13, 14, 16, 16, 14

Offset: 1

Labos Elemer, Jun 26 2000

nonn

The products of the corresponding primes form A055204.
Also, the number of primes dividing the squarefree part of n! (=A055204(n)).
Also, the number of prime factors in the factorization of n! into distinct terms of A050376. See the references in A241289. - Vladimir Shevelev, Apr 16 2014

			For n = 100, the exponents of primes in the factorization of n! are {97,48,24,16,9,7,5,5,4,3,3,2,2,2,2,1,1,1,1,1,1,1,1,1,1}, and there are 17 odd values: {97,9,7,5,5,3,3,1,1,1,1,1,1,1,1,1,1}, so a(100) = 17.
The factorization of 6! into distinct terms of A050376 is 5*9*16 with only one prime, so a(6)=1. - _Vladimir Shevelev_, Apr 16 2014

V. S. Shevelev, Multiplicative functions in the Fermi-Dirac arithmetic, Izvestia Vuzov of the North-Caucasus region, Nature sciences 4 (1996), 28-43 (in Russian; MR 2000f: 11097, pp. 3912-3913).

Max Alekseyev, Table of n, a(n) for n = 1..100000
S. Litsyn and V. S. Shevelev, On factorization of integers with restrictions on the exponent, INTEGERS: Electronic Journal of Combinatorial Number Theory, 7 (2007), #A33, 1-36.

Cf. A000142, A000720, A007913, A008833, A162642, A348841.

Cf. A249016 (indices of records), A249017 (values of records)

Table[Count[FactorInteger[n!][[All, -1]], m_ /; OddQ@ m] - Boole[n == 1], {n, 100}] (* Michael De Vlieger, Feb 05 2017 *)

PARI
```
a(n) = omega(core(n!))
```

a(n) = A001221(A055204(n)). - Max Alekseyev, Oct 19 2014
From Wolfdieter Lang, Nov 06 2021: (Start)
a(n) = A162642(A000142(n)).
a(n) = A000720(n) - A348841(n), (End)

Edited by Max Alekseyev, Oct 19 2014

A235623 Numbers n for which in the prime power factorization of n!, the numbers of exponents 1 and >1 are equal.

Original entry on oeis.org

0, 1, 4, 7, 8, 9, 13, 19, 20, 21

Offset: 1

Vladimir Shevelev, Apr 20 2014

Number n is in the sequence, if and only if pi(n) = 2*pi(n/2), where pi(x) is the number of primes<=x. Indeed, all primes from interval (n/2, n] appear in prime power factorization of n! with exponent 1, while all primes from interval (0, n/2] appear in n! with exponents >1. However, it follows from Ehrhart's link that, for n>=22, pi(n) < 2*pi(n/2). Therefore, a(9)=21 is the last term of the sequence.

m is in this sequence if and only if the number of prime divisors of [m/2]! equals the number of unitary prime divisors of m! - Peter Luschny, Apr 29 2014

			21! = 2^20*3^9*5^4*7^3*11*13*17*19. Here 4 primes with exponent 1 and 4 primes with exponents >1, so 21 is in the sequence.

Eugene Ehrhart, On prime numbers, Fibonacci Quarterly 26:3 (1988), pp. 271-274.

Cf. A056171, A177329, A177333, A177334, A240537, A240588, A240606, A240619, A240620, A240668, A240669, A240670, A240672, A240695, A240751, A240755, A240764, A240905, A240906, A241123, A241124, A241139, A241148, A241289.

with(numtheory): a := proc(n) factorset(n!); factorset(iquo(n,2)!);
`if`(nops(%% minus %) = nops(%), n, NULL) end: seq(a(n), n=0..30); # Peter Luschny, Apr 28 2014

isok(n) = {f = factor(n!); sum(i=1, #f~, f[i,2] == 1) == sum(i=1, #f~, f[i,2] > 1);} \\ Michel Marcus, Apr 20 2014

cp's OEIS Frontend

A055460 Number of primes with odd exponents in the prime power factorization of n!.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions