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 A383106 #8 Apr 29 2025 16:52:12 %S A383106 1,2,3,4,5,6,7,8,9,10,11,13,14,15,17,19,21,22,23,25,26,27,29,30,31,32, %T A383106 33,34,35,36,37,38,39,41,42,43,46,47,49,51,53,55,57,58,59,61,62,64,65, %U A383106 66,67,69,70,71,73,74,77,78,79,82,83,85,86,87,89,91,93,94,95,97,100 %N A383106 Numbers k such that A382883(k) != 0. %C A383106 See the comments in A382883. %t A383106 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[100], f[#] != 0 &] (* _Amiram Eldar_, Apr 29 2025 *) %o A383106 (SageMath) %o A383106 def A383106List(upto): return [n for n in srange(1, upto) if A382883(n) != 0] %Y A383106 Cf. A382883, A382943 (complement), A383016, A383017. %Y A383106 Cf. A005117 and similars: A062770, A072774, A085924, A242414, A304449. %K A383106 nonn %O A383106 1,2 %A A383106 _Peter Luschny_, Apr 16 2025