cp's OEIS Frontend

A276386 Write A003511(n) in the base {1, 3, 4, 11, 15, 41, 56, 153, 209, ...} (see A002530).

%I A276386 #14 Dec 30 2018 07:05:42
%S A276386 1,2,100,101,102,200,201,202,1001,1002,10000,10001,10002,10100,10101,
%T A276386 10102,10200,10201,10202,11001,11002,20000,20001,20002,20100,20101,
%U A276386 20102,20200,20201,20202,100001,100002,100100,100101,100102,100200,100201,100202,101001
%N A276386 Write A003511(n) in the base {1, 3, 4, 11, 15, 41, 56, 153, 209, ...} (see A002530).
%H A276386 Rémy Sigrist, <a href="/A276386/b276386.txt">Table of n, a(n) for n = 1..1000</a>
%H A276386 Aviezri S. Fraenkel, Jonathan Levitt, Michael Shimshoni, <a href="http://dx.doi.org/10.1016/0012-365X(72)90012-X">Characterization of the set of values f(n)=[n alpha], n=1,2,...</a>, Discrete Math. 2 (1972), no. 4, 335-345. See Table 1.
%o A276386 (PARI) A002530(n) = contfracpnqn(vector(n, i, 1+(i>1)*(i%2)))[2, 1]
%o A276386 A003511(n) = floor(n*(1+sqrt(3))/2)
%o A276386 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
%Y A276386 Cf. A002530, A003511, A003512, A276387, A276388.
%K A276386 nonn,base
%O A276386 1,2
%A A276386 _N. J. A. Sloane_, Sep 04 2016
%E A276386 More terms from _Rémy Sigrist_, Dec 29 2018