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!)
A329600 Smallest number with the same set of distinct prime exponents as A108951(n). 7
1, 2, 2, 4, 2, 12, 2, 8, 4, 12, 2, 24, 2, 12, 12, 16, 2, 72, 2, 24, 12, 12, 2, 48, 4, 12, 8, 24, 2, 360, 2, 32, 12, 12, 12, 144, 2, 12, 12, 48, 2, 360, 2, 24, 24, 12, 2, 96, 4, 72, 12, 24, 2, 432, 12, 48, 12, 12, 2, 720, 2, 12, 24, 64, 12, 360, 2, 24, 12, 360, 2, 288, 2, 12, 72, 24, 12, 360, 2, 96, 16, 12, 2, 720, 12, 12, 12, 48, 2, 2160, 12, 24, 12, 12, 12 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

Index entries for sequences computed from indices in prime factorization

FORMULA

a(n) = A328400(A108951(n)) = A181821(A007947(A122111(n)))

a(n) = A181821(A329607(n)) = A181821(A122111(A071364(n))).

MATHEMATICA

Array[Times @@ MapIndexed[Prime[#2[[1]]]^#1 &, Reverse[Flatten[Cases[FactorInteger[#], {p_, k_} :> Table[PrimePi[p], {k}]]]]] &[Times @@ FactorInteger[#][[All, 1]]] &@ If[# == 1, 1, Times @@ Prime@ FactorInteger[#][[All, -1]]] &[Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Times @@ Prime@ Range@ PrimePi@ p, e}]] &, 105] (* Michael De Vlieger, Nov 18 2019, after Gus Wiseman at A181821 *)

PROG

(PARI)

A007947(n) = factorback(factorint(n)[, 1]);

A181819(n) = factorback(apply(e->prime(e), (factor(n)[, 2])));

A181821(n) = { my(f=factor(n), p=0, m=1); forstep(i=#f~, 1, -1, while(f[i, 2], f[i, 2]--; m *= (p=nextprime(p+1))^primepi(f[i, 1]))); (m); };

A328400(n) = A181821(A007947(A181819(n)));

A034386(n) = prod(i=1, primepi(n), prime(i));

A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };  \\ From A108951

A329600(n) = A328400(A108951(n));

CROSSREFS

Cf. A007947, A034386, A071364, A108951, A122111, A181819, A181821, A328400, A329607.

Cf. A077462 (rgs-transform, from its term a(1)=1 onward).

Sequence in context: A064482 A341699 A294072 * A344226 A305792 A317942

Adjacent sequences:  A329597 A329598 A329599 * A329601 A329602 A329603

KEYWORD

nonn

AUTHOR

Antti Karttunen, Nov 17 2019

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 July 28 19:21 EDT 2021. Contains 346335 sequences. (Running on oeis4.)