login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A321874 If n = Product (p_j^k_j) then a(n) = Product (prime(p_j)^prime(k_j)). 4
1, 9, 25, 27, 121, 225, 289, 243, 125, 1089, 961, 675, 1681, 2601, 3025, 2187, 3481, 1125, 4489, 3267, 7225, 8649, 6889, 6075, 1331, 15129, 3125, 7803, 11881, 27225, 16129, 177147, 24025, 31329, 34969, 3375, 24649, 40401, 42025, 29403, 32041, 65025, 36481, 25947, 15125 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..45.

Index entries for sequences computed from indices in prime factorization

FORMULA

Multiplicative with a(p^e) = prime(p)^prime(e). - M. F. Hasler, Nov 20 2018

EXAMPLE

a(12) = a(2^2 * 3^1) = prime(2)^prime(2) * prime(3)^prime(1) = 3^3 * 5^2 = 675.

MATHEMATICA

a[n_] := Times @@ (Prime[#[[1]]]^Prime[#[[2]]] & /@ FactorInteger[n]); a[1] = 1; Table[a[n], {n, 45}]

PROG

(PARI) a(n) = my(f=factor(n)); prod(k=1, #f~, prime(f[k, 1])^prime(f[k, 2])); \\ Michel Marcus, Nov 20 2018

(PARI) apply( A321874(n)=factorback(apply(prime, factor(n))), [1..49]) \\ M. F. Hasler, Nov 20 2018

CROSSREFS

Cf. A000040, A064988, A304203.

Sequence in context: A068583 A074852 A322177 * A020252 A076486 A270337

Adjacent sequences:  A321871 A321872 A321873 * A321875 A321876 A321877

KEYWORD

nonn,mult

AUTHOR

Ilya Gutkovskiy, Nov 20 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 3 04:26 EST 2021. Contains 341756 sequences. (Running on oeis4.)