%I #23 Sep 28 2020 05:28:18
%S 9,18,25,27,45,49,50,54,63,75,81,90,98,99,100,108,117,121,125,126,135,
%T 147,150,153,156,162,169,171,175,189,196,198,207,225,234,242,243,245,
%U 250,261,270,275,279,289,294,297,300,306,315,324,325,333,338,342,343,350,351,361,363
%N Numbers k such that A003958(k) does not divide phi(k).
%e For n = 1 the a(1) = 9 because A003958(9) = 4 does not divide A000010(9) = 6.
%t Select[Range[2, 363], Mod[EulerPhi@ #, Times @@ Map[# /. {p_, e_} :> (p - 1)^e &, FactorInteger[#]]] != 0 &] (* _Michael De Vlieger_, Apr 21 2019 *)
%Y Contained in A013929.
%Y Cf. A000010, A003557, A003958, A007947, A005117, A319927.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Apr 15 2019