# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a324931 Showing 1-1 of 1 %I A324931 #7 Mar 22 2019 00:32:31 %S A324931 1,2,4,3,8,6,16,12,7,5,32,9,24,14,10,64,18,48,28,20,128,36,19,13,21, %T A324931 15,96,27,56,40,256,72,38,26,11,42,30,192,54,112,17,80,512,144,76,52, %U A324931 22,84,60,384,49,23,35,53,108,37,224,25,57,39,34,160,63,1024 %N A324931 Integers in the list of quotients of positive integers by their product of prime indices. %C A324931 These quotients are given by A324932(n)/A324933(n). %C A324931 This is a permutation of the positive integers, with inverse A324934. %F A324931 a(n) = A324850(n)/A003963(A324850(n)). %e A324931 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 A324931 Select[Table[n/Times@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]^k],{n,100}],IntegerQ] %Y A324931 Cf. A003963, A109129, A120383, A196050, A324846, A324849, A324850, A324922, A324923, A324924, A324925, A324934. %K A324931 nonn %O A324931 1,2 %A A324931 _Gus Wiseman_, Mar 21 2019 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE