|
%I #7 Aug 05 2019 17:14:56
%S 1,16,32,64,128,256,512,768,1024,1280,1536,1792,2048,2304,2560,2816,
%T 3072,3328,3584,4096,4352,4608,4864,5120,5632,5888,6144,6400,6656,
%U 6912,7168,7424,7936,8192,8704,9216,9472,9728,10240,10496,11008,11264,11776
%N n is divisible by the 4th power of the number of unitary divisors of n (A034444).
%H Amiram Eldar, <a href="/A048170/b048170.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[12000], Divisible[#, 16^PrimeNu[#]] &] (* _Amiram Eldar_, Aug 05 2019 *)
%Y A034444, A046756, A048166-A048169.
%K nonn
%O 1,2
%A _Labos Elemer_
|
