|
%I #16 Oct 11 2021 04:21:14
%S 10,11,12,13,14,15,26,27,28,29,30,31,42,43,44,45,46,47,58,59,60,61,62,
%T 63,74,75,76,77,78,79,90,91,92,93,94,95,106,107,108,109,110,111,122,
%U 123,124,125,126,127,138,139,140,141,142,143,154,155,156,157,158,159,160
%N Numbers in base-16 representation that cannot be written with decimal digits.
%H Reinhard Zumkeller, <a href="/A102490/b102490.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Hexadecimal.html">Hexadecimal</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Hexadecimal">Hexadecimal</a>
%e 42 = 2*16^1 + 10*16^0 = '2A', therefore 42 is a term.
%t Select[Range[200],IntegerLength[Max[IntegerDigits[#,16]]]>1&] (* _Harvey P. Dale_, Jun 12 2020 *)
%o (Haskell)
%o import Data.List (unfoldr)
%o a102490 n = a102490_list !! (n-1)
%o a102490_list = filter (any (> 9) . unfoldr
%o (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 16)) [0..]
%o -- _Reinhard Zumkeller_, Jun 27 2013
%o (Python)
%o def ok(n): return any(hd > '9' for hd in hex(n)[2:])
%o print(list(filter(ok, range(161)))) # _Michael S. Branicky_, Oct 11 2021
%Y Complement of A102489; A102488, A102492, A102494.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Jan 12 2005
|
