A381201 a(n) is the product of the elements of the set of bases and exponents in the prime factorization of n.

1, 2, 3, 2, 5, 6, 7, 6, 6, 10, 11, 6, 13, 14, 15, 8, 17, 6, 19, 10, 21, 22, 23, 6, 10, 26, 3, 14, 29, 30, 31, 10, 33, 34, 35, 6, 37, 38, 39, 30, 41, 42, 43, 22, 30, 46, 47, 24, 14, 10, 51, 26, 53, 6, 55, 42, 57, 58, 59, 30, 61, 62, 42, 12, 65, 66, 67, 34, 69, 70

Offset: 1

Author

Paolo Xausa, Feb 16 2025

Keywords

• nonn
• easy

Comments

The prime factorization of 1 is the empty set, so a(1) = 1 by convention (empty product).

Examples

			a(12) = 6 because 12 = 2^2*3^1, the set of these bases and exponents is {1, 2, 3} and 1*2*3 = 6.
a(31500) = 210 because 31500 = 2^2*3^2*5^3*7^1, the set of these bases and exponents is {1, 2, 3, 5, 7} and 1*2*3*5*7 = 210.
		

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000026, A336965, A381202, A381203, A381204, A381205.

Programs

Mathematica

A381201[n_] := Times @@ Union[Flatten[FactorInteger[n]]];
Array[A381201, 100]

PARI

a(n) = my(f=factor(n)); vecprod(Vec(setunion(Set(f[,1]), Set(f[,2])))); \\ Michel Marcus, Feb 18 2025