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 A175688 #19 Jun 20 2018 01:37:05
%S A175688 0,1,2,3,4,5,6,7,8,9,11,22,33,44,55,66,77,88,99,102,111,120,123,132,
%T A175688 135,147,153,159,174,195,201,204,210,213,222,231,234,240,243,246,258,
%U A175688 264,285,306,312,315,321,324,333,342,345,351,354,357,360,369,375,396,402
%N A175688 Numbers k with property that arithmetic mean of its digits is both an integer and one of the digits of k.
%C A175688 Subsequence of A061383.
%C A175688 A180160(a(n)) = 0. - _Reinhard Zumkeller_, Aug 15 2010
%H A175688 R. Zumkeller, <a href="/A175688/b175688.txt">Table of n, a(n) for n = 1..10000</a>
%e A175688 135 is in the list because (1+3+5)/3 = 3 and 3 is a digit of 135.
%t A175688 idQ[n_]:=Module[{idn=IntegerDigits[n],m},m=Mean[idn];IntegerQ[m] && MemberQ[idn,m]]; Select[Range[0,500],idQ] (* _Harvey P. Dale_, Jun 10 2011 *)
%o A175688 (Haskell)
%o A175688 a175688 n = a175688_list !! (n-1)
%o A175688 a175688_list = filter f [0..] where
%o A175688 f x = m == 0 && ("0123456789" !! avg) `elem` show x
%o A175688 where (avg, m) = divMod (a007953 x) (a055642 x)
%o A175688 -- _Reinhard Zumkeller_, Jun 18 2013
%Y A175688 Cf. A007953, A055642, A004426, A004427; A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539.
%Y A175688 Cf. A052018. - _Reinhard Zumkeller_, Aug 15 2010
%K A175688 base,nonn
%O A175688 1,3
%A A175688 _Claudio Meller_, Aug 09 2010
%E A175688 Edited by _Reinhard Zumkeller_, Aug 13 2010