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,2

Links

Table of n, a(n) for n=1..61.

Mathematica

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

Crossrefs

Cf. A098018.

Sequence in context: A288755 A227897 A156638 * A087882 A338544 A191196

Adjacent sequences: A098865 A098866 A098867 * A098869 A098870 A098871

Keyword

nonn

Author

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

Status

approved