The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A003622 The Wythoff compound sequence AA: [n*phi^2] - 1, where phi = (1+sqrt(5))/2. (Formerly M3278) 76

%I M3278

%S 1,4,6,9,12,14,17,19,22,25,27,30,33,35,38,40,43,46,48,51,53,56,59,61,

%T 64,67,69,72,74,77,80,82,85,88,90,93,95,98,101,103,106,108,111,114,

%U 116,119,122,124,127,129,132,135,137,140,142,145,148,150,153,156,158,161,163,166

%N The Wythoff compound sequence AA: [n*phi^2] - 1, where phi = (1+sqrt(5))/2.

%C Also, integers with "odd" Zeckendorf expansions (end with ...+F1 = ...+1) (Fibonacci-odd numbers); first column of Wythoff array A035513; from a 3-way splitting of positive integers.

%C Also, numbers n such that A005206(n) = A005206(n+1). Also n such that A022342(A005206(n)) = n+1 (for all other n's this is n). - Michele Dondi (bik.mido(AT)tiscalenet.it), Dec 30 2001

%C Also, positions of 1's in A139764, the smallest term in Zeckendorf representation of n. - _John W. Layman_, Aug 25 2011

%D A. Brousseau, Fibonacci and Related Number Theoretic Tables. Fibonacci Association, San Jose, CA, 1972, p. 62.

%D R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 1990, p. 307-308 of 2nd edition.

%D C. Kimberling, "Stolarsky interspersions," Ars Combinatoria 39 (1995) 129-138.

%D D. R. Morrison, ``A Stolarsky array of Wythoff pairs,'' in A Collection of Manuscripts Related to the Fibonacci Sequence. Fibonacci Assoc., Santa Clara, CA, 1980, pp. 134-136.

%D J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 10.

%D N. J. A. Sloane and Simon Plouffe, Encyclopedia of Integer Sequences, Academic Press, 1995: this sequence appears twice, as both M3277 and M3278.

%H T. D. Noe, <a href="/A003622/b003622.txt">Table of n, a(n) for n = 1..1000</a>

%H J.-P. Allouche and F. M. Dekking, <a href="https://arxiv.org/abs/1809.03424">Generalized Beatty sequences and complementary triples</a>, arXiv:1809.03424 [math.NT], 2018.

%H A. Brousseau, <a href="http://www.fq.math.ca/fibonacci-tables.html">Fibonacci and Related Number Theoretic Tables</a>, Fibonacci Association, San Jose, CA, 1972, p. 62.

%H Larry Ericksen and Peter G. Anderson, <a href="http://www.cs.rit.edu/~pga/k-zeck.pdf">Patterns in differences between rows in k-Zeckendorf arrays</a>, The Fibonacci Quarterly, Vol. 50, February 2012. - _N. J. A. Sloane_, Jun 10 2012

%H Aviezri S. Fraenkel, <a href="https://www.emis.de/journals/INTEGERS/papers/a13int2005/a13int2005.Abstract.html">The Raleigh game</a>, INTEGERS: Electronic Journal of Combinatorial Number Theory 7.2 (2007): A13, 10 pages. See Table 1.

%H Martin Griffiths, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL18/Griffiths/gr48.html">On a Matrix Arising from a Family of Iterated Self-Compositions</a>, Journal of Integer Sequences, 18 (2015), #15.11.8.

%H V. E. Hoggatt, Jr., <a href="/A005676/a005676.pdf">7-page typed letter to N. J. A. Sloane with suggestions for new sequences</a>, circa 1977.

%H Clark Kimberling, <a href="http://faculty.evansville.edu/ck6/integer/intersp.html">Interspersions</a>

%H Clark Kimberling, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL11/Kimberling/kimberling719a.html">Complementary equations and Wythoff Sequences</a>, JIS 11 (2008) 08.3.3.

%H Clark Kimberling, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL23/Kimberling/kimber12.html">Lucas Representations of Positive Integers</a>, J. Int. Seq., Vol. 23 (2020), Article 20.9.5.

%H C. Kimberling and K. B. Stolarsky, <a href="http://www.jstor.org/stable/10.4169/amer.math.monthly.123.3.267">Slow Beatty sequences, devious convergence, and partitional divergence</a>, Amer. Math. Monthly, 123 (No. 2, 2016), 267-273.

%H L. Lindroos, A. Sills and H. Wang, <a href="http://digitalcommons.georgiasouthern.edu/math-sci-facpubs/182/">Odd fibbinary numbers and the golden ratio</a>, Fib. Q., 52 (2014), 61-65.

%H M. Rigo, P. Salimov, and E. Vandomme, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL16/Rigo/rigo3.html">Some Properties of Abelian Return Words</a>, Journal of Integer Sequences, Vol. 16 (2013), #13.2.5.

%H N. J. A. Sloane, <a href="/classic.html#WYTH">Classic Sequences</a>

%H N. J. A. Sloane, <a href="/A115004/a115004.txt">Families of Essentially Identical Sequences</a>, Mar 24 2021 (Includes this sequence)

%H Jiemeng Zhang, Zhixiong Wen, and Wen Wu, <a href="http://www.combinatorics.org/ojs/index.php/eljc/article/view/v24i2p52">Some Properties of the Fibonacci Sequence on an Infinite Alphabet</a>, Electronic Journal of Combinatorics, 24(2) (2017), #P2.52.

%F a(n) = [(n+1)*phi] + n; a(n) = [[n*phi]*phi] = A000201(A000201(n)).

%F a(n) = 1 + A022342(1+A022342(n)).

%F G.f.: 1 - (1-x)*sum_{n=1..inf} x^a(n) = 1/1 + x/1 + x^2/1 + x^3/1 + x^5/1 + x^8/1 +...+ x^F(n)/1 +... (continued fraction where F(n)=n-th Fibonacci number). - _Paul D. Hanna_, Aug 16 2002

%F a(n) = A001950(n) - 1. - _Philippe Deléham_, Apr 30 2004

%F a(n) = A022342(n) + n. - _Philippe Deléham_, May 03 2004

%p A003622 := proc(n)

%p n+floor(n*(1+sqrt(5))/2)-1 ;

%p end proc: # _R. J. Mathar_, Jan 25 2015

%p # Maple code for the Wythoff compound sequences, from _N. J. A. Sloane_, Mar 30 2016

%p # The Wythoff compound sequences: Let A = A000201, B = A001950. Then AA = A003622, AB = A003623, BA = A035336, BB = A101864. The eight triples AAA, AAB, ..., BBB are A134859, A134860, A035337, A134862, A134861, A134863, A035338, A134864, resp.

%p # Assume files out1, out2 contain lists of the terms in the base sequences A and B from their b-files

%p read out1; read out2; b:=b1: b:=b2:

%p w2:=(i,j,n)->b[i][b[j][n]];

%p w3:=(i,j,k,n)->b[i][b[j][b[k][n]]];

%p for i from 0 to 1 do

%p lprint("name=",i);

%p lprint([seq(b[i][n],n=1..100)]):

%p od:

%p for i from 0 to 1 do for j from 0 to 1 do

%p lprint("name=",i,j);

%p lprint([seq(w2(i,j,n),n=1..100)]);

%p od: od:

%p for i from 0 to 1 do for j from 0 to 1 do for k from 0 to 1 do

%p lprint("name=",i,j,k);

%p lprint([seq(w3(i,j,k,n),n=1..100)]);

%p od: od: od:

%t With[{c=GoldenRatio^2},Table[Floor[n c]-1,{n,70}]] (* _Harvey P. Dale_, Jun 11 2011 *)

%t Range//Floor[#*GoldenRatio^2]-1& (* _Waldemar Puszkarz_, Oct 10 2017 *)

%o (PARI) a(n)=floor(n*(sqrt(5)+3)/2)-1

%o (Haskell)

%o a003622 n = a003622_list !! (n-1)

%o a003622_list = filter ((elem 1) . a035516_row) [1..]

%o -- _Reinhard Zumkeller_, Mar 10 2013

%o (Python)

%o from sympy import floor

%o from mpmath import phi

%o def a(n): return floor(n*phi**2) - 1 # _Indranil Ghosh_, Jun 09 2017

%Y Positions of 1's in A003849.

%Y Cf. A022342, A066096, A139764, A035516, A026273.

%Y The Wythoff compound sequences: Let A = A000201, B = A001950. Then AA = A003622, AB = A003623, BA = A035336, BB = A101864. The eight triples AAA, AAB, ..., BBB are A134859, A134860, A035337, A134862, A134861, A134863, A035338, A134864, resp.

%Y The following sequences are all essentially the same, in the sense that they are simple transformations of each other, with A000201 as the parent: A000201, A001030, A001468, A001950, A003622, A003842, A003849, A004641, A005614, A014675, A022342, A088462, A096270, A114986, A124841. - _N. J. A. Sloane_, Mar 11 2021

%K nonn,easy,nice

%O 1,2

%A _N. J. A. Sloane_, _Mira Bernstein_, _Marc LeBrun_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 15 00:13 EDT 2021. Contains 342971 sequences. (Running on oeis4.)