A102488 Numbers in base-12 representation that cannot be written with decimal digits.
10, 11, 22, 23, 34, 35, 46, 47, 58, 59, 70, 71, 82, 83, 94, 95, 106, 107, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 154, 155, 166, 167, 178, 179, 190, 191, 202, 203, 214
Offset: 1
Examples
143 = 11*12^1 + 11*12^0 = 'BB', therefore 143 is a term.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Duodecimal
- Wikipedia, Duodecimal
Programs
-
Haskell
import Data.List (unfoldr) a102488 n = a102488_list !! (n-1) a102488_list = filter (any (> 9) . unfoldr (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 12)) [1..] -- Reinhard Zumkeller, Apr 18 2011
-
Mathematica
Select[Range[250],Max[IntegerDigits[#,12]]>9&] (* Harvey P. Dale, Oct 20 2020 *)