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 A383018 #10 Apr 29 2025 16:52:29 %S A383018 36,64,100,196,216,225,441,484,676,729,1000,1024,1089,1156,1225,1444, %T A383018 1521,2116,2601,2744,3025,3249,3364,3375,3844,4225,4761,5476,5929, %U A383018 6724,7225,7396,7569,7776,8281,8649,8836,9025,9261,10648,11236,12321,13225,13924,14161 %N A383018 Numbers k such that A008683(k) = 0 and A382883(k) = -1. %C A383018 See the comments in A382883. %F A383018 Subsequence of A383105. %t A383018 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 *) %o A383018 (SageMath) %o A383018 print([n for n in range(1, 14444) if moebius(n) == 0 and A382883(n) == -1]) %Y A383018 Cf. A382883, A008683, A303606, A383105. %K A383018 nonn %O A383018 1,1 %A A383018 _Peter Luschny_, Apr 14 2025