login
A276386
Write A003511(n) in the base {1, 3, 4, 11, 15, 41, 56, 153, 209, ...} (see A002530).
3
1, 2, 100, 101, 102, 200, 201, 202, 1001, 1002, 10000, 10001, 10002, 10100, 10101, 10102, 10200, 10201, 10202, 11001, 11002, 20000, 20001, 20002, 20100, 20101, 20102, 20200, 20201, 20202, 100001, 100002, 100100, 100101, 100102, 100200, 100201, 100202, 101001
OFFSET
1,2
LINKS
Aviezri S. Fraenkel, Jonathan Levitt, Michael Shimshoni, Characterization of the set of values f(n)=[n alpha], n=1,2,..., Discrete Math. 2 (1972), no. 4, 335-345. See Table 1.
PROG
(PARI) A002530(n) = contfracpnqn(vector(n, i, 1+(i>1)*(i%2)))[2, 1]
A003511(n) = floor(n*(1+sqrt(3))/2)
a(n) = my (v=A003511(n)); for (b=2, oo, if (v<=A002530(b), my (w=0); forstep (p=b, 2, -1, w=10*w + (v\A002530(p)); v=v%A002530(p)); return (w))) \\ Rémy Sigrist, Dec 29 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 04 2016
EXTENSIONS
More terms from Rémy Sigrist, Dec 29 2018
STATUS
approved