|
%I #7 Jul 13 2013 12:03:31
%S 2,3,4,5,6,7,8,9,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
%T 29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,
%U 52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75
%N Numbers having in their decimal representation at least one digit greater than 1.
%C A054055(a(n)) > 1;
%C Complement of A007088; A064770(a(n)) <> a(n).
%H Reinhard Zumkeller, <a href="/A136399/b136399.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a136399 n = a136399_list !! (n-1)
%o a136399_list = filter (any (> '1') . show) [0..]
%o -- _Reinhard Zumkeller_, Apr 25 2012
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Dec 30 2007
|
