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

 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 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.

Last modified July 28 19:21 EDT 2021. Contains 346335 sequences. (Running on oeis4.)