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!)
A324922 a(n) = unique m such that m/A003963(m) = n, where A003963 is product of prime indices. 23
1, 2, 6, 4, 30, 12, 28, 8, 36, 60, 330, 24, 156, 56, 180, 16, 476, 72, 152, 120, 168, 660, 828, 48, 900, 312, 216, 112, 1740, 360, 10230, 32, 1980, 952, 840, 144, 888, 304, 936, 240, 6396, 336, 2408, 1320, 1080, 1656, 8460, 96, 784, 1800, 2856, 624, 848, 432 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Every positive integer has a unique factorization into factors q(i) = prime(i)/i, i > 0 given by the rows of A324924. Then a(n) is the number obtained by encoding this factorization as a standard factorization into prime numbers (A112798).

LINKS

Rémy Sigrist, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = Product_t mg(t) where the product is over all (not necessarily distinct) terminal subtrees of the rooted tree with Matula-Goebel number n, and mg(t) is the Matula-Goebel number of t.

Completely multiplicative with a(prime(n)) = prime(n) * a(n). - Rémy Sigrist, Jul 18 2019

MATHEMATICA

primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];

difac[n_]:=If[n==1, {}, With[{m=Product[Prime[i]/i, {i, primeMS[n]}]}, Sort[Join[primeMS[n], difac[n/m]]]]];

Table[Times@@Prime/@difac[n], {n, 30}]

PROG

(PARI) a(n) = my (f=factor(n)); prod (i=1, #f~, (f[i, 1] * a(primepi(f[i, 1])))^f[i, 2]) \\ Rémy Sigrist, Jul 18 2019

CROSSREFS

Sorting the sequence gives A324850.

Cf. A000081, A003963, A061775, A109129, A112798, A120383, A196050, A317713.

Cf. A324848, A324849, A324923, A324924, A324925, A324931, A324934.

Sequence in context: A253588 A228099 A227955 * A329886 A064538 A002790

Adjacent sequences:  A324919 A324920 A324921 * A324923 A324924 A324925

KEYWORD

nonn,mult

AUTHOR

Gus Wiseman, Mar 20 2019

EXTENSIONS

Keyword mult added by Rémy Sigrist, Jul 18 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 April 10 11:15 EDT 2021. Contains 342845 sequences. (Running on oeis4.)