|
%I #13 Oct 20 2020 15:55:00
%S 10,11,22,23,34,35,46,47,58,59,70,71,82,83,94,95,106,107,118,119,120,
%T 121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,
%U 138,139,140,141,142,143,154,155,166,167,178,179,190,191,202,203,214
%N Numbers in base-12 representation that cannot be written with decimal digits.
%H Reinhard Zumkeller, <a href="/A102488/b102488.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Duodecimal.html">Duodecimal</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Duodecimal">Duodecimal</a>
%e 143 = 11*12^1 + 11*12^0 = 'BB', therefore 143 is a term.
%t Select[Range[250],Max[IntegerDigits[#,12]]>9&] (* _Harvey P. Dale_, Oct 20 2020 *)
%o (Haskell)
%o import Data.List (unfoldr)
%o a102488 n = a102488_list !! (n-1)
%o a102488_list = filter (any (> 9) . unfoldr (\x ->
%o if x == 0 then Nothing else Just $ swap $ divMod x 12)) [1..]
%o -- _Reinhard Zumkeller_, Apr 18 2011
%Y Complement of A102487; A102490, A102492, A102494.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Jan 12 2005
|
