cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A022344 Allan Wechsler's "J determinant" sequence.

Original entry on oeis.org

1, 5, 4, 9, 16, 11, 19, 11, 20, 31, 19, 31, 45, 29, 44, 25, 41, 59, 36, 55, 29, 49, 71, 41, 64, 89, 55, 81, 44, 71, 100, 59, 89, 121, 76, 109, 61, 95, 131, 79, 116, 61, 99, 139, 80, 121, 164, 101, 145, 79, 124, 171, 101, 149, 76, 125, 176, 99, 151, 205
Offset: 0

Views

Author

Keywords

Comments

From Kenneth J Ramsey, Jan 06 2007: (Start)
"a(n) = the characteristic value of the row T(n,i) of the Wythoff array A035513 which is the absolute value of T(n,i)^2 - T(n,i-1)*T(n,i+1). Only the number 5 or prime factors ending in 1 or 9 form the squarefree portion of a(n). All other factors of a(n) appear only as squares.
"Moreover, the squarefree portion (less the factor 5) squared is the characteristic value of the Fibonacci sequence whose bijection relates to c term of the Horadam "Fibonacci Number Triples" Amer. Math. Monthly 68(1961) 751-753. That paper showed that if F(0), F(1), F(2), F(3) are 4 sequential numbers in a row of the Wythoff array, then P = (2F(1)*F(2),F(0)*F(1),2F(1)*F(2) + F(0)^2) is a Pythagorean triple (a,b,c) i.e. a^2 + b^2 = c^2.
"If i varies and c(n,2i-1) = F(n,i)^2 + 2F(n,i+1)*F(n,i+2) and C(n,2i) is set to equal C(n,2i+1)-C(n,2i-1) then, the sequence F(x,i) = C(n,i)/G, where G is the greatest common divisor of the adjacent terms C(n,i), is a Fibonacci sequence having the characteristic value which is the square of the squarefree portion of a(n) except without the factor of 5.
"For example the Lucas sequence or the second row of the Wythoff array has the characteristic value of A(2) = 5 and the C(n,i) terms are each 5 times the sequential terms 34,89,233,... which is a bijection of the terms in the 1st row of the Wythoff array which row has the characteristic value of 1. This is so even though adjacent terms of the Lucas sequence are coprime." (End)
Conjecture: Every pair of Fibonacci sequences, F1 and F2, appear in rows n and m of Wythoff's Array, respectively and have respective characteristics a(n) and a(m). Also, there is a third Fibonacci sequence F3, defined by F3(i) = F1(i) * F2(j+1) - F1(i+1)*F2(j) where j is held constant. The sequence F3 appears in row p of Wythoff's array and has the characteristic a(p) = a(n)*a(m). - Kenneth J Ramsey, Feb 11 2007
A product p of rows n and m of the Wythoff Array, such that a(p) = a(n)*a(m) as described in the conjecture above, is defined by A357097(n, m). - Peter Munn, Aug 15 2025
a(n) = |T(n,i)^2 - T(n,i-2)*T(n,i+2)| for all i > 2, where T = Wythoff array. Indeed, if k > 0, then |T(n,i)^2 - T(n,j-k)*T(n,j+k)| = (F(k)^2)*a(n) for j > k. That is, if m is in this sequence, then 4*m, 9*m, 25*m, 64*m, ... are also in this sequence. - Clark Kimberling, Jul 15 2016

References

Crossrefs

Range of values: A031363.

Programs

  • Magma
    [Floor((n+1)*((1+Sqrt(5))/2))^2-n*Floor((n+1)*(1+Sqrt(5))/2)-n^2: n in [0..60]]; // Vincenzo Librandi, Jul 01 2016
  • Maple
    Digits := 50: t := evalf((1+sqrt(5))/2): f := n->floor( n*t)^2-(n-1)*floor(n*t)-(n-1)^2:
  • Mathematica
    Table[#^2 - n # - n^2 &[Floor[(n + 1) GoldenRatio]], {n, 0, 51}] (* Michael De Vlieger, Jun 30 2016 *)

Formula

a(n) = floor((n+1)*tau)^2 - n*floor((n+1)*tau) - n^2.
a(A357097(x,y)) = a(x) * a(y). - Peter Munn, Aug 15 2025

A126892 a(n) = row of Wythoff's array T(n,j) containing the sequence of values T(n,j-1) + T(n,j+1).

Original entry on oeis.org

1, 15, 8, 12, 44, 19, 62, 26, 30, 91, 37, 109, 120, 48, 138, 55, 59, 167, 66, 185, 73, 77, 214, 84, 88, 243, 95, 261, 102, 106, 290, 113, 308, 319, 124, 337, 131, 135, 366, 142, 384, 149, 153, 413, 160, 431, 442, 171, 460, 178, 182, 489, 189, 507, 196, 200
Offset: 0

Views

Author

Kenneth J Ramsey, Jan 13 2007

Keywords

Comments

Every Fibonacci sequence with positive terms occurs as some row of Wythoff's array (A035513), so a(n) is always defined. There appear to be two possible offsets for the sequence of sums within row a(n); either T(n,j-1) + T(n,j+1) = T(a(n),j-3) for j>=3 or T(n,j-1) + T(n,j+1) = T(a(n),j-1) for j>=1. The first case seems to occur whenever n has a Zeckendorf representation which ends in 1, 10100, 101000100, 1010001000100, 10100010001000100, etc. (each successive ending is obtained by changing the left-hand 1 to 10100). The values of these endings are 1,11,79,545,3739,25631,175681 ... and equal F(i)*F(i+1) + F(i+2)^2 for i = 0,2,4,6,... where F(i) is the i-th Fibonacci number. These values also appear in the table A127561 at a(1,0), a(1,1), a(2,3), a(5,8), ..., a(F(2n-1),F(2n)) for n = 0,1,2,3....
The Zeckendorf representation of n is the unique binary sequence ...,b(4),b(3),b(2) for which n = sum_{i>=2} b(i)F(i) and two consecutive b's cannot both be 1. For example, the Zeckendorf representation of 100 is 1000010100, since 100 = 89+8+3 = F(11)+F(6)+F(4).

Examples

			a(2)=8 because the sequence of sums T(2,j-1)+T(2,j+1) begins with 6+16=22=T(8,0) and 10+26=36=T(8,1). a(1)=15 because the sequence of sums T(1,j-1)+T(1,j+1) begins with 4+11=15, 7+18=25, 11+29=40=T(15,0) and 18+47=65=T(15,1).
		

Crossrefs

Programs

  • Mathematica
    T[i_,j_]:=i*Fibonacci[j+1]+Fibonacci[j+2]*Floor[(i+1)(1+Sqrt[5])/2]; U[i_,j_]:=T[i,j-1]+T[i,j+1]; Tpair[i_,j_]:={T[i,j],T[i,j+1]}; Upair[i_,j_]:={U[i,j],U[i,j+1]}; a[n_]:=a[n]=Module[{v},For[v=0,True,v++,If[Upair[n,1]==Tpair[v,0]||Upair[n,3]==Tpair[v,0],Return[v]]]]

Formula

Conjecture: If the Zeckendorf representation of n ends in 1, then a(n) = 15 + H(n-H(n))*29 + (n-H(n) - H(n-H(n)))*18, where H(n) is Hofstadter's G sequence A005206. Otherwise, a(n) = 1 + H(H(n))*7 + (H(n) - H(H(n)))*4 unless the Zeckendorf representation of n has one of the 0-endings listed in the first comment line, in which case a(n) = a(n+1) - 11.

Extensions

Edited by Dean Hickerson, Feb 09 2007
Showing 1-2 of 2 results.