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