|
|
A102488
|
|
Numbers in base-12 representation that cannot be written with decimal digits.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
143 = 11*12^1 + 11*12^0 = 'BB', therefore 143 is a term.
|
|
MATHEMATICA
|
Select[Range[250], Max[IntegerDigits[#, 12]]>9&] (* Harvey P. Dale, Oct 20 2020 *)
|
|
PROG
|
(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..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|