OFFSET
0,3
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = 2*a(n/6) if n = 0 mod 6; otherwise a(n) = a(n-1)+1.
MATHEMATICA
t = Table[FromDigits[RealDigits[n, 6], 2], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Aug 03 2012
STATUS
approved