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 A098836 #17 Mar 14 2025 09:36:41
%S A098836 4,22,27,58,85,94,121,166,202,265,274,319,346,355,382,391,454,483,517,
%T A098836 526,535,562,627,634,645,663,706,729,778,825,861,895,913,915,922,958,
%U A098836 985,1111,1165,1219,1255,1282,1449,1507,1581,1633,1642,1678,1755,1795
%N A098836 Deficient Smith numbers.
%H A098836 Amiram Eldar, <a href="/A098836/b098836.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%H A098836 Shyam Sunder Gupta, <a href="https://doi.org/10.1007/978-981-97-2465-9_4">Smith Numbers</a>, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 4, 127-157.
%e A098836 a(4) = 58 because 58 is a Smith number as well as a deficient number.
%t A098836 sndnQ[n_]:=!PrimeQ[n]&&DivisorSigma[1,n]<2n&&Total[Flatten[ IntegerDigits/@ (Flatten[ Table[#[[1]],{#[[2]]}]&/@ FactorInteger[ n]])]]==Total[ IntegerDigits[ n]]; Select[Range[2,2000],sndnQ] (* _Harvey P. Dale_, Sep 10 2013 *)
%Y A098836 Intersection of A005100 and A006753.
%K A098836 base,nonn
%O A098836 1,1
%A A098836 _Shyam Sunder Gupta_, Oct 10 2004