login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A326153
Numerator of the product of prime indices of n divided by the sum of prime indices of n, n > 1.
11
1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 6, 1, 1, 4, 1, 3, 4, 5, 1, 2, 3, 6, 4, 2, 1, 1, 1, 1, 10, 7, 12, 2, 1, 8, 3, 1, 1, 8, 1, 5, 12, 9, 1, 1, 2, 9, 14, 3, 1, 8, 15, 4, 8, 10, 1, 6, 1, 11, 2, 1, 2, 5, 1, 7, 18, 3, 1, 4, 1, 12, 9, 4, 20, 4, 1, 3, 2, 13, 1, 1
OFFSET
2,5
COMMENTS
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
EXAMPLE
The sequence A326153/A326154 begins: 1, 1, 1/2, 1, 2/3, 1, 1/3, 1, 3/4, 1, 1/2, 1, 4/5, 6/5, 1/4, 1, 4/5, 1, 3/5, 4/3, 5/6, 1, 2/5, 3/2, 6/7, 4/3.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Numerator[Times@@primeMS[n]/Plus@@primeMS[n]], {n, 2, 100}]
CROSSREFS
Numerator of A003963(n)/A056239(n).
Positions of ones are A326155 without the first term.
Sequence in context: A347049 A054576 A326840 * A199515 A316695 A316767
KEYWORD
nonn,frac
AUTHOR
Gus Wiseman, Jun 09 2019
STATUS
approved