(Translated by https://www.hiragana.jp/)
# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a101864 Showing 1-1 of 1 %I A101864 #34 Dec 17 2021 01:08:00 %S A101864 5,13,18,26,34,39,47,52,60,68,73,81,89,94,102,107,115,123,128,136,141, %T A101864 149,157,162,170,178,183,191,196,204,212,217,225,233,238,246,251,259, %U A101864 267,272,280,285,293,301,306,314,322,327,335,340,348,356,361,369,374,382,390,395 %N A101864 Wythoff BB numbers. %C A101864 a(n)-3 are also the positions of 1 in A188436. - _Federico Provvedi_, Nov 22 2018 %H A101864 Muniru A Asiru, Table of n, a(n) for n = 1..2000 %H A101864 J.-P. Allouche and F. M. Dekking, Generalized Beatty sequences and complementary triples, arXiv:1809.03424 [math.NT], 2018. %H A101864 C. Kimberling, Complementary equations and Wythoff Sequences, JIS 11 (2008) 08.3.3. %H A101864 Clark Kimberling, Intriguing infinite words composed of zeros and ones, Elemente der Mathematik (2021). %H A101864 C. Kimberling and K. B. Stolarsky, Slow Beatty sequences, devious convergence, and partitional divergence, Amer. Math. Monthly, 123 (No. 2, 2016), 267-273. %F A101864 a(n) = B(B(n)), n>=1, with B(k)=A001950(k) (Wythoff B-numbers). a(0)=0 with B(0)=0. %p A101864 b:=n->floor(n*((1+sqrt(5))/2)^2): seq(b(b(n)),n=1..60); # _Muniru A Asiru_, Dec 05 2018 %t A101864 b[n_] := Floor[n * GoldenRatio^2]; a[n_] := b[b[n]]; Array[a, 60] (* _Amiram Eldar_, Nov 22 2018 *) %o A101864 (Python) %o A101864 from sympy import S %o A101864 for n in range(1,60): print(int(S.GoldenRatio**2*(int(n*S.GoldenRatio**2))), end=', ') # _Stefano Spezia_, Dec 06 2018 %Y A101864 Second row of A101858. %Y A101864 Let A = A000201, B = A001950. Then AA = A003622, AB = A003623, BA = A035336, BB = A101864. %K A101864 nonn %O A101864 1,1 %A A101864 _N. J. A. Sloane_, Jan 28 2005 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE