|
%I #9 Apr 14 2021 05:24:58
%S 1,1,2,1,3,1,4,1,4,3,5,1,6,2,2,1,7,2,8,3,8,5,9,1,9,3,8,1,10,1,11,1,10,
%T 7,12,1,12,4,4,3,13,4,14,5,4,9,15,1,16,9,14,3,16,4,3,1,16,5,17,1,18,
%U 11,16,1,18,5,19,7,6,6,20,1,21,6,6,2,20,2,22,3
%N Denominator in the division of n by the product of prime indices of n.
%C 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.
%H Amiram Eldar, <a href="/A324933/b324933.txt">Table of n, a(n) for n = 1..10000</a>
%e The sequence of quotients n/A003963(n) begins: 1, 2, 3/2, 4, 5/3, 3, 7/4, 8, 9/4, 10/3, 11/5, 6, 13/6, 7/2, 5/2, 16, ...
%t Table[n/Times@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]^k],{n,100}]//Denominator
%Y The numerators are A324932.
%Y Cf. A003963, A109129, A120383, A196050, A317713, A324846, A324849, A324850, A324922, A324923, A324924, A324925, A324931, A324934.
%K nonn,frac
%O 1,3
%A _Gus Wiseman_, Mar 21 2019
|
