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 A048167 #8 Jul 16 2019 11:58:38
%S A048167 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 A048167 27,28,29,15,31,64,34,36,37,38,40,41,21,43,44,46,47,48,49,50,52,53,54,
%U A048167 56,58,59,30,61,62,128,33,67,68,35,71,72,73,74,76,39,79,80,81,82,83,42
%N A048167 Integer quotients of numbers k divisible by the number of unitary divisors of k (A034444).
%H A048167 Amiram Eldar, <a href="/A048167/b048167.txt">Table of n, a(n) for n = 1..10000</a>
%F A048167 a(n) = A048166(n)/A034444(A048166(n)). - _Amiram Eldar_, Jul 16 2019
%e A048167 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 A048167 f[n_] := n / 2^PrimeNu[n]; f /@ Select[Range[340], IntegerQ[f[#]] &] (* _Amiram Eldar_, Jul 16 2019 *)
%Y A048167 Cf. A034444, A036762, A000005, A048166.
%K A048167 nonn
%O A048167 1,3
%A A048167 _Labos Elemer_