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 A109396 #9 Oct 27 2019 11:11:49 %S A109396 12,20,24,30,40,42,54,70,102,114,120,222,270,402,1002,2022,2202,10002, %T A109396 10014,10792,11202,12102,21102,31002,32128,45356,103002,110202,111102, %U A109396 128768,740870,1000002,1000014,1001202,1002102,1021002,1111002,1200102 %N A109396 Admirable Harshad numbers such that the subtracted divisor is also a Harshad number. %H A109396 Amiram Eldar, <a href="/A109396/b109396.txt">Table of n, a(n) for n = 1..100</a> %e A109396 12 is in the sequence since it is a Harshad number (1 + 2 = 3 is a divisor of 12), an admirable number: 1 - 2 + 3 + 4 + 6 = 12, and the subtracted divisor, 2, is also a Harshad number. %t A109396 hQ[n_] := Divisible[n, Plus @@ IntegerDigits@n]; aQ[n_] := hQ[n] && (d = DivisorSigma[1, n] - 2*n) > 0 && EvenQ[d] && d/2 < n && hQ[d/2] && Divisible[n, d/2]; Select[Range[50000], aQ] (* _Amiram Eldar_, Oct 27 2019 *) %Y A109396 Cf. A111592, A005349, A111947, A111948. %K A109396 base,nonn %O A109396 1,1 %A A109396 _Jason Earls_, Aug 26 2005