%I #10 Apr 14 2021 05:24:50
%S 1,2,3,4,5,3,7,8,9,10,11,6,13,7,5,16,17,9,19,20,21,22,23,12,25,13,27,
%T 7,29,5,31,32,33,34,35,9,37,19,13,40,41,21,43,44,15,46,47,24,49,50,51,
%U 26,53,27,11,14,57,29,59,10,61,62,63,64,65,33,67,68,23
%N Numerator 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="/A324932/b324932.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}]//Numerator
%Y The denominators are A324933.
%Y Cf. A003963, A109129, A120383, A196050, A324846, A324849, A324850, A324922, A324923, A324924, A324925, A324931, A324934.
%K nonn,frac
%O 1,2
%A _Gus Wiseman_, Mar 21 2019