login
A376450
n in base whose greedy place values are quarter-squares (A002620).
3
0, 1, 10, 11, 100, 101, 1000, 1001, 1010, 10000, 10001, 10010, 100000, 100001, 100010, 100011, 1000000, 1000001, 1000010, 1000011, 10000000, 10000001, 10000010, 10000011, 10000100, 100000000, 100000001, 100000010, 100000011, 100000100, 1000000000, 1000000001
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