OFFSET
1,12
COMMENTS
Ordinal transform of A053832. - Alois P. Heinz, Dec 23 2018
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Duodecimal
Eric Weisstein's World of Mathematics, Digit Sum
Wikipedia, Duodecimal
Wikipedia, Digit sum
MATHEMATICA
b[_] = 1;
a[n_] := a[n] = With[{t = Total[IntegerDigits[n, 12]]}, b[t]++];
Array[a, 100] (* Jean-François Alcover, Dec 18 2021 *)
PROG
(Haskell)
import Data.IntMap (empty, findWithDefault, insert)
a263109 n = a263109_list !! (n-1)
a263109_list = f 1 empty where
f x m = y : f (x + 1) (insert q (y + 1) m) where
y = findWithDefault 1 q m; q = a053832 x
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Oct 09 2015
STATUS
approved