A098868 Numbers n where A098018(n)=0.

1, 4, 5, 13, 15, 16, 17, 19, 21, 25, 27, 28, 29, 33, 37, 38, 39, 41, 45, 53, 56, 61, 65, 68, 69, 73, 74, 81, 85, 87, 89, 97, 98, 99, 101, 106, 109, 113, 115, 117, 123, 125, 127, 137, 140, 141, 145, 149, 151, 157, 159, 163, 169, 172, 173, 174, 177, 181, 182, 185, 187

Offset: 1

Author

Leroy Quet and Robert G. Wilson v, Nov 03 2004

Keywords

• nonn

Crossrefs

Cf. A098018.

Programs

Mathematica

f[n_] := Plus @@ MoebiusMu[ Drop[ Divisors[n], 1] - 1]; Select[ Range[ 192], f[ # ] == 0 &]