OFFSET
0,3
EXAMPLE
The quarter-square base is A002620 = (1,2,4,6,9,12,16,...), in which 15 = 12 + 2 + 1, written in quarter-square base as 100011.
MATHEMATICA
greedy[list_, n_] := Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, n, Reverse[list]]][[2, 1]];
seq = Table[Floor[((n + 1)^2)/4], {n, 20}]; (*A002620*)
Table[FromDigits[greedy[seq, n]], {n, Last[seq]}]
(* Peter J. C. Moses, Oct 18 2012; from A214973 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Sep 25 2024
STATUS
approved