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-3 of 3 results.

A022413 Kim-sums: "Kimberling sums" K_n + K_2.

Original entry on oeis.org

1, 5, 8, 10, 13, 16, 18, 21, 23, 26, 29, 31, 34, 37, 39, 42, 44, 47, 50, 52, 55, 57, 60, 63, 65, 68, 71, 73, 76, 78, 81, 84, 86, 89, 92, 94, 97, 99, 102, 105, 107, 110, 112, 115, 118, 120, 123, 126, 128, 131, 133, 136, 139, 141, 144, 146, 149, 152, 154, 157, 160, 162, 165, 167, 170, 173, 175, 178
Offset: 0

Views

Author

Keywords

Comments

Let W(i,j) denote the index of that row of the extended Wythoff array (see A035513) that contains the sequence formed by the sum of rows i and j. Then the "Kim-sum" or "Kimberling-sum" K_n + K_i is W(i-1,n). - N. J. A. Sloane, Mar 08 2016
The n-th Kimberling sequence K_n is defined (cf Links) by K_n(i) = K_n(i-1) + K_n(i-2), with initial values K_n(0) = n, K_n(1) = floor((n+1)*tau). - M. F. Hasler, Sep 02 2016

References

  • J. H. Conway, Posting to Math Fun Mailing List, Dec 02 1996.
  • M. LeBrun, Posting to Math-Fun Mailing List Jan 10 1997.

Crossrefs

The "Kim-sums" K_n + K_i for i = 2 through 12 are given in A022413, A022414, A022415, ..., A022423.

Programs

  • Mathematica
    a[n_] := If[n == 0, 1, Floor[n GoldenRatio] + n + 3];
    Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Oct 15 2023 *)
  • Python
    from math import isqrt
    def A022413(n): return (n+isqrt(5*n**2)>>1)+n+3 if n else 1 # Chai Wah Wu, Aug 29 2022

Formula

a(n) = 1 if n=0, otherwise a(n) = A000201(n)+n+3. - N. J. A. Sloane, Mar 07 2016

Extensions

Edited and extended by N. J. A. Sloane, Mar 07 2016

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

A269726 a(n) = row number of extended Wythoff array (see A035513) which contains the sequence n times the Lucas numbers 1,3,4,7,11,18,... (A000204).

Original entry on oeis.org

1, 8, 12, 44, 55, 66, 77, 88, 261, 290, 319, 348, 377, 406, 435, 464, 493, 522, 551, 580, 609, 1672, 1748, 1824, 1900, 1976, 2052, 2128, 2204, 2280, 2356, 2432, 2508, 2584, 2660, 2736, 2812, 2888, 2964, 3040, 3116, 3192, 3268, 3344, 3420, 3496, 3572, 3648
Offset: 1

Views

Author

N. J. A. Sloane, Mar 07 2016

Keywords

References

  • J. H. Conway, Posting to Math Fun Mailing List, Dec 02 1996.

Crossrefs

Formula

a(n) = A220249(n)-1. - R. J. Mathar, May 06 2017
a(n) = A357097(a(1), A269725(n)), where we write a(1) here to emphasize the semantics of the relationship. - Peter Munn, Aug 21 2025
Showing 1-3 of 3 results.