A383018 Numbers k such that A008683(k) = 0 and A382883(k) = -1.

36, 64, 100, 196, 216, 225, 441, 484, 676, 729, 1000, 1024, 1089, 1156, 1225, 1444, 1521, 2116, 2601, 2744, 3025, 3249, 3364, 3375, 3844, 4225, 4761, 5476, 5929, 6724, 7225, 7396, 7569, 7776, 8281, 8649, 8836, 9025, 9261, 10648, 11236, 12321, 13225, 13924, 14161

Offset: 1

Author

Peter Luschny, Apr 14 2025

Keywords

• nonn

Comments

See the comments in A382883.

Crossrefs

Cf. A382883, A008683, A303606, A383105.

Programs

Mathematica

V[n_, e_] := If[e == 1, 1, IntegerExponent[n, e]]; f[n_] := f[n] = -DivisorSum[n, V[n, #] * f[#] &, # < n &]; f[1] = 1; Select[Range[15000], !SquareFreeQ[#] && f[#] == -1 &] (* Amiram Eldar, Apr 29 2025 *)

SageMath

print([n for n in range(1, 14444) if moebius(n) == 0 and A382883(n) == -1])

Formula

Subsequence of A383105.