login
Numbers n where A098018(n)=0.
0

%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