(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