This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A383105 #10 Apr 29 2025 16:52:17 %S A383105 4,8,9,25,27,32,36,49,64,100,121,125,128,169,196,216,225,243,289,343, %T A383105 361,441,484,529,676,729,841,900,961,1000,1024,1089,1156,1225,1331, %U A383105 1369,1444,1521,1681,1764,1849,2048,2116,2187,2197,2209,2601,2744,2809,3025 %N A383105 Numbers k such that A382883(k) != A008683(k). %C A383105 See the comments in A382883. %F A383105 k in a <=> Moebius(k) = 0 and abs(A382883(k)) = 1. %t A383105 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[3200], f[#] != MoebiusMu[#] &] (* _Amiram Eldar_, Apr 29 2025 *) %o A383105 (SageMath) %o A383105 print([p for p in range(1, 3100) if A382883(p) != moebius(p)]) %Y A383105 Cf. A382883, A008683, A383018. %K A383105 nonn %O A383105 1,1 %A A383105 _Peter Luschny_, Apr 16 2025