OFFSET
0,3
COMMENTS
Change-of-base sequence 7->2.
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
FORMULA
a(0)=0, a(n)=2*a(n/7) if n==0 (mod 7), a(n)=a(n-1)+1 otherwise.
MATHEMATICA
t = Table[FromDigits[RealDigits[n, 7], 2], {n, 0, 100}] (* Clark Kimberling, Aug 03 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Karol Bacik, Jan 03 2012
STATUS
approved