A048167 - OEIS

%I #8 Jul 16 2019 11:58:38

%S 1,1,2,4,3,8,5,6,7,16,9,10,11,12,13,14,32,17,18,19,20,22,23,24,25,26,

%T 27,28,29,15,31,64,34,36,37,38,40,41,21,43,44,46,47,48,49,50,52,53,54,

%U 56,58,59,30,61,62,128,33,67,68,35,71,72,73,74,76,39,79,80,81,82,83,42

%N Integer quotients of numbers k divisible by the number of unitary divisors of k (A034444).

%H Amiram Eldar, <a href="/A048167/b048167.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A048166(n)/A034444(A048166(n)). - _Amiram Eldar_, Jul 16 2019

%e 1008 = 2*2*2*3*3*7 has 8 unitary divisors {1,1008,7,144,9,112,16,63}, 8 divides 1008 and the quotient is 126, a term in the sequence.

%t f[n_] := n / 2^PrimeNu[n]; f /@ Select[Range[340], IntegerQ[f[#]] &] (* _Amiram Eldar_, Jul 16 2019 *)

%Y Cf. A034444, A036762, A000005, A048166.

%K nonn

%O 1,3

%A _Labos Elemer_