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