A380480 The maximal exponent in the prime factorization of Product_{d|n} A276086(n/d)^A349394(d).

0, 1, 1, 2, 1, 2, 1, 4, 4, 3, 1, 4, 1, 1, 3, 9, 1, 4, 1, 8, 2, 3, 1, 5, 6, 2, 13, 4, 1, 4, 1, 20, 3, 3, 2, 8, 1, 3, 2, 14, 1, 6, 1, 8, 8, 3, 1, 14, 8, 7, 3, 8, 1, 10, 4, 13, 3, 4, 1, 9, 1, 1, 7, 41, 2, 4, 1, 8, 3, 5, 1, 18, 1, 1, 7, 7, 2, 6, 1, 30, 40, 3, 1, 14, 4, 2, 4, 14, 1, 8, 3, 8, 2, 3, 3, 27, 1, 8, 8, 14, 1, 4, 1, 20, 5

Offset

1,4

Links

Antti Karttunen, Table of n, a(n) for n = 1..20000

Index entries for sequences related to primorial base.

Formula

a(n) = A051903(A380459(n)).

Prog

(PARI)
A051903(n) = if(n>1, vecmax(factor(n)[, 2]), 0)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A349394(n) = { my(p=0, e); if((e=isprimepower(n, &p)), p^(e-1), 0); };
A380459(n) = { my(m=1); fordiv(n, d, m *= A276086(d)^A349394(n/d)); (m); };
A380480(n) = A051903(A380459(n));

Crossrefs

Cf. A051903, A276086, A349394, A380459.

Cf. also A380479.

Sequence in context: A266081 A188440 A216327 * A099875 A079499 A166235

Adjacent sequences: A380477 A380478 A380479 * A380481 A380482 A380483

Keyword

nonn

Author

Antti Karttunen, Feb 04 2025

Status

approved