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 A348918 #22 Nov 05 2021 14:33:34
%S A348918 4,9,12,18,25,45,49,60,96,112,121,126,150,169,289,294,336,361,448,486,
%T A348918 529,540,560,600,637,672,726,841,961,1014,1232,1344,1350,1369,1638,
%U A348918 1680,1681,1734,1849,2166,2209,2430,2809,2850,3174,3481,3721,3822,4200,4320,4489
%N A348918 Noninfinitary harmonic numbers: numbers such that the harmonic mean of their noninfinitary divisors is an integer.
%C A348918 Includes all the squares of primes (A001248), since they are the numbers with a single noninfinitary divisor.
%H A348918 Amiram Eldar, <a href="/A348918/b348918.txt">Table of n, a(n) for n = 1..5000</a>
%e A348918 12 is a term since its noninfinitary divisors are {2, 6}, and their harmonic mean, 3, is an integer.
%t A348918 nidiv[1] = {}; nidiv[n_] := Complement[Divisors[n], Sort@ Flatten@ Outer[Times, Sequence @@ (FactorInteger[n] /. {p_, m_Integer} :> p^Select[Range[0, m], BitOr[m, #] == m &])]]; Select[Range[5000], (d = nidiv[#]) != {} && IntegerQ@ HarmonicMean[d] &]
%Y A348918 Cf. A001248, A001599, A006086, A063947, A286325, A319745.
%K A348918 nonn
%O A348918 1,1
%A A348918 _Amiram Eldar_, Nov 04 2021