login
Contains digits 1 through 6 only.
6

%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