login
A276387
Write A003512(n) in the base {1, 3, 4, 11, 15, 41, 56, 153, 209, ...} (see A002530).
3
10, 110, 1000, 1010, 10010, 10110, 11000, 11010, 20010, 20110, 100000, 100010, 100110, 101000, 101010, 1000010, 1000110, 1001000, 1001010, 1010010, 1010110, 1011000, 1011010, 1020010, 1020110, 1100000, 1100010, 1100110, 1101000, 1101010, 2000010, 2000110
OFFSET
1,1
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]
A003512(n) = floor(n*(sqrt(3)+2))
a(n) = my (v=A003512(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