login
Numbers n such that (A000120(n))^2 divides n.
2

%I #8 Jul 13 2015 22:58:53

%S 1,2,4,8,12,16,20,24,32,36,40,48,64,68,72,80,81,96,128,132,136,144,

%T 160,162,192,240,252,256,260,261,264,272,288,320,324,368,384,425,432,

%U 464,480,504,512,516,520,522,528,544,576,624,625,637,640,648,675,688,720

%N Numbers n such that (A000120(n))^2 divides n.

%C This is a subsequence of A049445.

%H Alois P. Heinz, <a href="/A180490/b180490.txt">Table of n, a(n) for n = 1..10000</a>

%F {n: (A000120(n))^2 | n}.

%t fQ[n_] := Divisible[ n, DigitCount[n, 2, 1]^2]; Select[ Range@ 735, fQ] (* _Robert G. Wilson v_, Sep 10 2010 *)

%Y Cf. A049445.

%K easy,nonn

%O 1,2

%A _Ctibor O. Zizka_, Sep 08 2010

%E a(43) onwards from _Robert G. Wilson v_, Sep 10 2010