%I #5 Feb 05 2014 20:18:04
%S 1,4,5,13,15,16,17,19,21,25,27,28,29,33,37,38,39,41,45,53,56,61,65,68,
%T 69,73,74,81,85,87,89,97,98,99,101,106,109,113,115,117,123,125,127,
%U 137,140,141,145,149,151,157,159,163,169,172,173,174,177,181,182,185,187
%N Numbers n where A098018(n)=0.
%t f[n_] := Plus @@ MoebiusMu[ Drop[ Divisors[n], 1] - 1]; Select[ Range[ 192], f[ # ] == 0 &]
%Y Cf. A098018.
%K nonn
%O 1,2
%A _Leroy Quet_ and _Robert G. Wilson v_, Nov 03 2004