cp's OEIS Frontend

A102488 Numbers in base-12 representation that cannot be written with decimal digits.

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