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.

Previous Showing 21-25 of 25 results.

A214870 Natural numbers placed in table T(n,k) layer by layer. The order of placement: at the beginning filled odd places of layer clockwise, next - even places counterclockwise. T(n,k) read by antidiagonals.

Original entry on oeis.org

1, 2, 3, 5, 4, 7, 10, 9, 8, 13, 17, 16, 6, 14, 21, 26, 25, 11, 12, 22, 31, 37, 36, 18, 15, 20, 32, 43, 50, 49, 27, 24, 23, 30, 44, 57, 65, 64, 38, 35, 19, 33, 42, 58, 73, 82, 81, 51, 48, 28, 29, 45, 56, 74, 91, 101, 100, 66, 63, 39, 34, 41, 59, 72, 92, 111
Offset: 1

Views

Author

Boris Putievskiy, Mar 11 2013

Keywords

Comments

Permutation of the natural numbers.
a(n) is a pairing function: a function that reversibly maps Z^{+} x Z^{+} onto Z^{+}, where Z^{+} is the set of integer positive numbers.
Layer is pair of sides of square from T(1,n) to T(n,n) and from T(n,n) to T(n,1).
Enumeration table T(n,k) layer by layer. The order of the list:
T(1,1)=1;
T(1,2), T(2,1), T(2,2);
. . .
T(1,n), T(3,n), ... T(n,3), T(n,1); T(n,2), T(n,4), ... T(4,n), T(2,n);
. . .

Examples

			The start of the sequence as table:
   1   2   5  10  17  26 ...
   3   4   9  16  25  36 ...
   7   8   6  11  18  27 ...
  13  14  12  15  24  35 ...
  21  22  20  23  19  28 ...
  31  32  30  33  29  34 ...
  ...
The start of the sequence as triangle array read by rows:
   1;
   2,  3;
   5,  4,  7;
  10,  9,  8, 13;
  17, 16,  6, 14, 21;
  26, 25, 11, 12, 22, 31;
  ...
		

Crossrefs

Programs

  • Python
    t=int((math.sqrt(8*n-7) - 1)/ 2)
    i=n-t*(t+1)/2
    j=(t*t+3*t+4)/2-n
    if i > j:
       result=i*i-i+(j%2)*(2-(j+1)/2)+((j+1)%2)*(j/2+1)
    else:
       result=j*j-2*(i%2)*j + (i%2)*((i+1)/2+1) + ((i+1)%2)*(-i/2+1)

Formula

As table
T(n,k) = k*k-2*(n mod 2)*k+(n mod 2)*((n+1)/2+1)+((n+1) mod 2)*(-n/2+1), if n<=k;
T(n,k) = n*n-n+(k mod 2)*(2-(k+1)/2)+((k+1) mod 2)*(k/2+1), if n>k.
As linear sequence
a(n) = j*j-2*(i mod 2)*j+(i mod 2)*((i+1)/2+1)+((i+1) mod 2)*(-i/2+1), if i<=j;
a(n) = i*i-i+(j mod 2)*(2-(j+1)/2)+((j+1) mod 2)*(j/2+1), if i>j; where i=n-t*(t+1)/2, j=(t*t+3*t+4)/2-n, t=floor((-1+sqrt(8*n-7))/2).

A228941 The n-th convergent of CF(e) is the a(n)-th convergent of DCF(e), the delayed continued fraction of e.

Original entry on oeis.org

1, 3, 4, 5, 9, 10, 11, 17, 18, 19, 27, 28, 29, 39, 40, 41, 53, 54, 55, 69, 70, 71, 87, 88, 89, 107, 108, 109
Offset: 1

Views

Author

Clark Kimberling, Sep 08 2013

Keywords

Comments

See A228825 for a definition of delayed continued fraction. Is A014209 is a subsequence of A228941? It appears that the difference sequence of A228941, namely (2,1,1,4,1,1,6,1,1,...), is the continued fraction of (e-2)/(3-e).

Examples

			The convergents of CF(e) are 2, 3, 8/3, 11/4, 19/7, 87/32, 106/39, ...; the convergents of DCF(e) are 2, 5/2, 3, 8/3, 11/4, 30/11, 49/18, 68/25, 19/7, 87/32, 106/39,...; a(5) = 9 because 19/7 is the 9th convergent of DCF(e).
		

Crossrefs

Programs

  • Mathematica
    $MaxExtraPrecision = Infinity; x[0] = E; s[x_] := s[x] = If[FractionalPart[x] < 1/2, Ceiling[x], Floor[x]]; f[n_] := f[n] = s[Abs[x[n]]]*Sign[x[n]]; x[n_] := 1/(x[n - 1] - f[n - 1]); t = Table[f[n], {n, 0, 120}] ;(* A228825; delayed cf of x[0] *); t1 = Convergents[t]; t2 = Convergents[ContinuedFraction[E, 120]]; Flatten[Table[Position[t1, t2[[n]]], {n, 1, 28}]]

Formula

Empirical g.f.: x*(x^5+x^3-x^2-2*x-1) / ((x-1)^3*(x^2+x+1)^2). - Colin Barker, Sep 13 2013

A362086 Denominator of the continued fraction 1/(2-3/(3-4/(4-5/(...(n-1)-n/(-3))))).

Original entry on oeis.org

3, 17, 9, 13, 53, 23, 29, 107, 43, 17, 179, 23, 79, 269, 101, 113, 29, 139, 1, 503, 61, 199, 647, 233, 251, 809, 17, 103, 43, 1, 373, 1187, 419, 443, 61, 1, 173, 1637, 191, 601, 1889, 659, 53, 127, 751, 1, 2447, 283, 883, 2753, 953, 1, 181, 1063, 367, 263, 131
Offset: 3

Views

Author

Mohammed Bouras, May 28 2023

Keywords

Comments

Conjecture: Except for 9, every term of this sequence is either a prime or 1.
Conjecture: Record values correspond to A248697 (n>3). - Bill McEachen, Mar 06 2024

Examples

			For n=3, 1/(2 - 3/(-3)) = 1/3, so a(3) = 3.
For n=4, 1/(2 - 3/(3 - 4/(-3))) = 13/17, so a(4) = 17.
For n=5, 1/(2 - 3/(3 - 4/(4 - 5/(-3)))) = 13/9, so a(5) = 9.
a(4) = a(12) = 4 + 12 + 1 = 17.
a(7) = a(45) = 7 + 45 + 1 = 53.
		

Crossrefs

Formula

a(n) = (n^2 + n - 3)/gcd(n^2 + n - 3, 3*A051403(n-3) + n*A051403(n-4)).
If gpf(n^2 + n - 3) > n, then we have:
a(n) = gpf(n^2 + n - 3), where gpf = "greatest prime factor".
If a(n) = a(m) and n < m < a(n), then we have:
a(n) = n + m + 1.
a(n) divides gcd(n^2 + n - 3, m^2 + m - 3).

A055630 Table T(k,m) = k^2 + m read by antidiagonals.

Original entry on oeis.org

0, 1, 1, 4, 2, 2, 9, 5, 3, 3, 16, 10, 6, 4, 4, 25, 17, 11, 7, 5, 5, 36, 26, 18, 12, 8, 6, 6, 49, 37, 27, 19, 13, 9, 7, 7, 64, 50, 38, 28, 20, 14, 10, 8, 8, 81, 65, 51, 39, 29, 21, 15, 11, 9, 9, 100, 82, 66, 52, 40, 30, 22, 16, 12, 10, 10, 121, 101, 83, 67, 53, 41, 31, 23, 17, 13
Offset: 0

Views

Author

Henry Bottomley, Jun 05 2000

Keywords

Examples

			Table begins:
..0...1...4...9..16..25..36..49..64..81.100.121.144...
..1...2...5..10..17..26..37..50..65..82.101.122.145...
..2...3...6..11..18..27..38..51..66..83.102.123.146...
..3...4...7..12..19..28..39..52..67..84.103.124.147...
..4...5...8..13..20..29..40..53..68..85.104.125.148...
..5...6...9..14..21..30..41..54..69..86.105.126.149...
..6...7..10..15..22..31..42..55..70..87.106.127.150...
..7...8..11..16..23..32..43..56..71..88.107.128.151...
..8...9..12..17..24..33..44..57..72..89.108.129.152...
..9..10..13..18..25..34..45..58..73..90.109.130.153...
.10..11..14..19..26..35..46..59..74..91.110.131.154...
... - _Philippe Deléham_, Mar 31 2013
		

Crossrefs

First column is A001477, second column is A000027, first row is A000290, second row is A002522, third row (apart from first term) is A010000, main diagonal is A002378, other diagonals include A028387, A028552, A014209, A002061, A014206, A027688-A027694, each row of A055096 (as upper right triangle) is right hand part of some row of this table

A183571 n+floor(sqrt(n+2)).

Original entry on oeis.org

2, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 88, 89
Offset: 1

Views

Author

Clark Kimberling, Jan 05 2011

Keywords

Crossrefs

Cf. A014209 (complement except for initial term).

Programs

  • Mathematica
    Table[n+Floor[Sqrt[n+2]],{n,80}] (* Harvey P. Dale, Mar 13 2012 *)
Previous Showing 21-25 of 25 results.