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 A241179 #15 Jan 23 2020 01:48:22 %S A241179 102,108,126,128,130,134,138,140,144,146,150,156,158,164,166,168,170, %T A241179 174,178,180,186,188,190,194,200,204,208,216,218,220,238,240,242,246, %U A241179 250,252,256,258,262,266,268,270,278,280,282,286,288,290,292,300,302,306,308,314,318,320,322,328,330,344,350,352,358,362 %N A241179 Numbers n such that there are exactly four numbers m with m + (some digit of m) = n. %D A241179 Eric Angelini, Posting to Sequence Fans Mailing List, Apr 20 2014 %H A241179 Robert Israel, <a href="/A241179/b241179.txt">Table of n, a(n) for n = 1..10000</a> %p A241179 See A241177. %t A241179 A241179[n_] := Module[{m, c = 0}, %t A241179 Do[c = c + Count[m + Union[IntegerDigits[m]], n], {m, 0, n}]; c]; %t A241179 Select[Range[0, 362], A241179[#] == 4 &] (* _Robert Price_, Mar 20 2019 *) %Y A241179 Related sequences: A241173, A241174, A241175, A241176, A241177, A241178, A241179, A241180, A241181, A241182, A241183. %K A241179 nonn,base %O A241179 1,1 %A A241179 _N. J. A. Sloane_, Apr 23 2014