OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Wikipedia, Senary
PROG
(Haskell)
a248910 n = a248910_list !! (n-1)
a248910_list = iterate f 1 where
f x = 1 + if r < 5 then x else 6 * f x' where (x', r) = divMod x 6
(PARI) isok(m) = vecmin(digits(m, 6)) > 0; \\ Michel Marcus, Jan 23 2022
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Mar 08 2015
STATUS
approved