|
%I #8 May 14 2021 07:10:36
%S 0,1,2,3,4,5,6,30,31,32,33,34,35,36,60,61,62,63,64,65,66,320,321,322,
%T 323,324,325,326,350,351,352,353,354,355,356,610,611,612,613,614,615,
%U 616,640,641,642,643,644,645,646,3200,3201,3202,3203,3204,3205,3206,3230,3231
%N n written in fractional base 7/3.
%H Alois P. Heinz, <a href="/A024640/b024640.txt">Table of n, a(n) for n = 0..10000</a>
%F To represent a number in base b, if a digit exceeds b, subtract b and carry 1. In fractional base a/b, subtract a and carry b.
%p a:= proc(n) `if`(n<1, 0, irem(n, 7, 'q')+a(3*q)*10) end:
%p seq(a(n), n=0..57); # _Alois P. Heinz_, May 14 2021
%K nonn,base
%O 0,3
%A _David W. Wilson_
|
