cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A326153 Numerator of the product of prime indices of n divided by the sum of prime indices of n, n > 1.

This page as a plain text file.
%I A326153 #6 Jun 10 2019 06:16:44
%S A326153 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,
%T A326153 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,
%U A326153 5,1,7,18,3,1,4,1,12,9,4,20,4,1,3,2,13,1,1
%N A326153 Numerator of the product of prime indices of n divided by the sum of prime indices of n, n > 1.
%C A326153 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.
%e A326153 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.
%t A326153 primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A326153 Table[Numerator[Times@@primeMS[n]/Plus@@primeMS[n]],{n,2,100}]
%Y A326153 Numerator of A003963(n)/A056239(n).
%Y A326153 Positions of ones are A326155 without the first term.
%Y A326153 Cf. A057567, A057568, A112798, A301987, A325037, A325042, A325044, A326149, A326150, A326151, A326154, A326156, A326158.
%K A326153 nonn,frac
%O A326153 2,5
%A A326153 _Gus Wiseman_, Jun 09 2019