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 A225354 #9 May 04 2024 14:57:22
%S A225354 1,2,3,5,6,7,10,11,12,13,14,15,17,19,21,22,23,26,29,30,31,33,34,35,37,
%T A225354 38,39,41,42,43,46,47,51,53,55,57,58,59,60,61,62,65,66,67,69,70,71,73,
%U A225354 74,77,78,79,82,83,84,85,86,87,89,91,93,94,95,97,101,102
%N A225354 Numbers that can be written as sum of distinct squarefree divisors.
%C A225354 A225245(a(n)) > 0.
%H A225354 Reinhard Zumkeller, <a href="/A225354/b225354.txt">Table of n, a(n) for n = 1..1000</a>
%t A225354 f[n_] := f[n] = Coefficient[Product[If[MoebiusMu[d] != 0, 1 + x^d, 1], {d, Divisors[n]}], x, n];
%t A225354 ParallelTable[If[f[k] > 0, k, Nothing], {k, 1, 1000}] (* _Jean-François Alcover_, May 04 2024, after _Ilya Gutkovskiy_ in A225245 *)
%o A225354 (Haskell)
%o A225354 import Data.List (findIndices)
%o A225354 a225354 n = a225354_list !! (n-1)
%o A225354 a225354_list = map (+ 1) $ findIndices (> 0) a225245_list
%Y A225354 Cf. A225353 (complement).
%K A225354 nonn
%O A225354 1,2
%A A225354 _Reinhard Zumkeller_, May 05 2013