A131365 - OEIS

%I #8 Jul 13 2013 12:03:29

%S 10,13,14,15,16,17,18,19,20,21,23,25,26,27,28,29,30,31,32,34,35,37,38,

%T 39,40,41,42,43,45,46,47,49,50,51,52,53,54,56,57,58,59,60,61,62,63,64,

%U 65,67,68,69,70,71,72,73,74,75,76,78,79,80,81,82,83,84,85,86,87,89,90

%N Numbers that cannot be written in decimal representation as sum of distinct repdigits of its digits.

%C A131364(a(n)) = 0; complement of A131366.

%H Reinhard Zumkeller, <a href="/A131365/b131365.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o import Data.List (elemIndices)

%o a131365 n = a131365_list !! (n-1)

%o a131365_list = elemIndices 0 a131364_list

%o -- _Reinhard Zumkeller_, Dec 10 2011

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Jul 03 2007