A376450 n in base whose greedy place values are quarter-squares (A002620).

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

Links

Table of n, a(n) for n=0..31.

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

Cf. A002620, A376451, A376452, A376453.

Sequence in context: A371047 A043681 A234472 * A139707 A139709 A221714

Adjacent sequences: A376447 A376448 A376449 * A376451 A376452 A376453

Keyword

nonn,base

Author

Clark Kimberling, Sep 25 2024

Status

approved