%I #29 Sep 01 2021 13:36:57
%S 1,2,3,4,5,6,11,12,13,14,15,16,21,22,23,24,25,26,31,32,33,34,35,36,41,
%T 42,43,44,45,46,51,52,53,54,55,56,61,62,63,64,65,66,111,112,113,114,
%U 115,116,121,122,123,124,125,126,131,132,133,134,135,136,141,142,143
%N Contains digits 1 through 6 only.
%C Numbers whose digits can be generated by successively throwing a regular die with the numbers 1..6 and concatenating the results.
%H Reinhard Zumkeller, <a href="/A057436/b057436.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n+1) = 1 + (if a(n) mod 10 < 6 then a(n) else a(a(n)\10)*10), a(0)=1. - _Reinhard Zumkeller_, Jul 13 2007
%e The number 61 can be generated by throwing a die twice and combining the results, but 17 not.
%t Select[Range[200],Max[IntegerDigits[#]]<=6&& DigitCount[#,10,0] ==0&] (* _Harvey P. Dale_, Apr 04 2011 *)
%t FromDigits/@Flatten[Table[Tuples[Range[6],n],{n,3}],1] (* _Harvey P. Dale_, Jul 26 2015 *)
%o (Haskell)
%o import Data.List (intersect)
%o a057436 n = a057436_list !! (n-1)
%o a057436_list = filter (null . (intersect "0789") . show) [1..]
%o -- _Reinhard Zumkeller_, Mar 28 20012
%o (Python)
%o from itertools import product
%o A057436_list = [int(''.join(d)) for l in range(1,5) for d in product('123456',repeat=l)] # _Chai Wah Wu_, Sep 01 2021
%Y Cf. A007092, A214676.
%K easy,nice,nonn,base
%O 1,2
%A Thomas Schulze (jazariel(AT)tiscalenet.it), Sep 08 2000
%E Offset corrected by _Reinhard Zumkeller_, Aug 16 2011