OFFSET
0
COMMENTS
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, which contributes 1,0,0,1,1 to this sequence.
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, 30}]; (* A002620 *)
t1 = Table[FromDigits[greedy[seq, n]], {n, Last[seq]}];
d = Map[Last, Map[First, RealDigits[t1, 10]]]
(* Peter J. C. Moses, Oct 18 2012; from A214973 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Sep 28 2024
STATUS
approved