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 A111947 #9 Oct 27 2019 11:12:03 %S A111947 12,20,24,30,40,42,54,70,84,102,114,120,140,222,224,234,270,308,364, %T A111947 402,476,644,1002,1148,1204,1638,1652,2022,2202,2212,3164,3250,3472, %U A111947 4172,6200,7588,8204,8432,8596,9424,10002,10014,10724,10792,11202,11228 %N A111947 Admirable Harshad numbers. %H A111947 Amiram Eldar, <a href="/A111947/b111947.txt">Table of n, a(n) for n = 1..10000</a> %e A111947 a(3)=24 because 1+2+3+4+8+12-6 = 24 and 24/6 = 4. %t A111947 harsQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2]; Select[Range[12000], harsQ[#] && admQ[#] &] (* _Amiram Eldar_, Oct 27 2019 *) %Y A111947 Intersection of A005349 and A111592. %Y A111947 Cf. A111948. %K A111947 base,nonn %O A111947 1,1 %A A111947 _Jason Earls_, Aug 22 2005