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

A261327 a(n) = (n^2 + 4) / 4^((n + 1) mod 2).

Original entry on oeis.org

1, 5, 2, 13, 5, 29, 10, 53, 17, 85, 26, 125, 37, 173, 50, 229, 65, 293, 82, 365, 101, 445, 122, 533, 145, 629, 170, 733, 197, 845, 226, 965, 257, 1093, 290, 1229, 325, 1373, 362, 1525, 401, 1685, 442, 1853, 485, 2029, 530, 2213, 577, 2405, 626, 2605, 677
Offset: 0

Views

Author

Paul Curtz, Aug 15 2015

Keywords

Comments

Using (n+sqrt(4+n^2))/2, after the integer 1 for n=0, the reduced metallic means are b(1) = (1+sqrt(5))/2, b(2) = 1+sqrt(2), b(3) = (3+sqrt(13))/2, b(4) = 2+sqrt(5), b(5) = (5+sqrt(29))/2, b(6) = 3+sqrt(10), b(7) = (7+sqrt(53))/2, b(8) = 4+sqrt(17), b(9) = (9+sqrt(85))/2, b(10) = 5+sqrt(26), b(11) = (11+sqrt(125))/2 = (11+5*sqrt(5))/2, ... . The last value yields the radicals in a(n) or A013946.
b(2) = 2.41, b(3) = 3.30, b(4) = 4.24, b(5) = 5.19 are "good" approximations of fractal dimensions corresponding to dimensions 3, 4, 5, 6: 2.48, 3.38, 4.33 and 5.45 based on models. See "Arbres DLA dans les espaces de dimension supérieure: la théorie des peaux entropiques" in Queiros-Condé et al. link. DLA: beginning of the title of the Witten et al. link.
Consider the symmetric array of the half extended Rydberg-Ritz spectrum of the hydrogen atom:
0, 1/0, 1/0, 1/0, 1/0, 1/0, 1/0, 1/0, ...
-1/0, 0, 3/4, 8/9, 15/16, 24/25, 35/36, 48/49, ...
-1/0, -3/4, 0, 5/36, 3/16, 21/100, 2/9, 45/196, ...
-1/0, -8/9, -5/36, 0, 7/144, 16/225, 1/12, 40/441, ...
-1/0, -15/16, -3/16, -7/144, 0, 9/400, 5/144, 33/784, ...
-1/0, -24/25, -21/100, -16/225, -9/400, 0, 11/900, 24/1225, ...
-1/0, -35/36, -2/9, -1/12, -5/144, -11/900, 0, 13/1764, ...
-1/0, -48/49, -45/196, -40/441, -33/784, -24/1225, -13/1764, 0, ... .
The numerators are almost A165795(n).
Successive rows: A000007(n)/A057427(n), A005563(n-1)/A000290(n), A061037(n)/A061038(n), A061039(n)/A061040(n), A061041(n)/A061042(n), A061043(n)/A061044(n), A061045(n)/A061046(n), A061047(n)/A061048(n), A061049(n)/A061050(n).
A144433(n) or A195161(n+1) are the numerators of the second upper diagonal (denominators: A171522(n)).
c(n+1) = a(n) + a(n+1) = 6, 7, 15, 18, 34, 39, 63, 70, 102, 111, ... .
c(n+3) - c(n+1) = 9, 11, 19, 21, 29, 31, ... = A090771(n+2).
The final digit of a(n) is neither 4 nor 8. - Paul Curtz, Jan 30 2019

Crossrefs

Programs

  • Magma
    [Numerator(1+n^2/4): n in [0..60]]; // Vincenzo Librandi, Aug 15 2015
    
  • Maple
    A261327:=n->numer((4 + n^2)/4); seq(A261327(n), n=0..60); # Wesley Ivan Hurt, Aug 15 2015
  • Mathematica
    LinearRecurrence[{0, 3, 0, -3, 0, 1}, {1, 5, 2, 13, 5, 29}, 60] (* Vincenzo Librandi, Aug 15 2015 *)
    a[n_] := (n^2 + 4) / 4^Mod[n + 1, 2]; Table[a[n], {n, 0, 52}] (* Peter Luschny, Mar 18 2022 *)
  • PARI
    vector(60, n, n--; numerator(1+n^2/4)) \\ Michel Marcus, Aug 15 2015
    
  • PARI
    Vec((1+5*x-x^2-2*x^3+2*x^4+5*x^5)/(1-x^2)^3 + O(x^60)) \\ Colin Barker, Aug 15 2015
    
  • PARI
    a(n)=if(n%2,n^2+4,(n/2)^2+1) \\ Charles R Greathouse IV, Oct 16 2015
    
  • Python
    [(n*n+4)//4**((n+1)%2) for n in range(60)] # Gennady Eremin, Mar 18 2022
  • Sage
    [numerator(1+n^2/4) for n in (0..60)] # G. C. Greubel, Feb 09 2019
    

Formula

a(n) = numerator(1 + n^2/4). (Previous name.) See A010685 (denominators).
a(2*k) = 1 + k^2.
a(2*k+1) = 5 + 4*k*(k+1).
a(2*k+1) = 4*a(2*k) + 4*k + 1.
a(4*k+2) = A069894(k). - Paul Curtz, Jan 30 2019
a(-n) = a(n).
a(n+2) = a(n) + A144433(n) (or A195161(n+1)).
a(n) = A168077(n) + period 2: repeat 1, 4.
a(n) = A171621(n) + period 2: repeat 2, 8.
From Colin Barker, Aug 15 2015: (Start)
a(n) = (5 - 3*(-1)^n)*(4 + n^2)/8.
a(n) = n^2/4 + 1 for n even;
a(n) = n^2 + 4 for n odd.
a(n) = 3*a(n-2) - 3*a(n-4) + a(n-6) for n>5.
G.f.: (1 + 5*x - x^2 - 2*x^3 + 2*x^4 + 5*x^5)/ (1 - x^2)^3. (End)
E.g.f.: (5/8)*(x^2 + x + 4)*exp(x) - (3/8)*(x^2 - x + 4)*exp(-x). - Robert Israel, Aug 18 2015
Sum_{n>=0} 1/a(n) = (4*coth(Pi)+tanh(Pi))*Pi/8 + 1/2. - Amiram Eldar, Mar 22 2022

Extensions

New name by Peter Luschny, Mar 18 2022

A244593 Decimal expansion of z_c = phi^5 (where phi is the golden ratio), a lattice statistics constant which is the exact value of the critical activity of the hard hexagon model.

Original entry on oeis.org

1, 1, 0, 9, 0, 1, 6, 9, 9, 4, 3, 7, 4, 9, 4, 7, 4, 2, 4, 1, 0, 2, 2, 9, 3, 4, 1, 7, 1, 8, 2, 8, 1, 9, 0, 5, 8, 8, 6, 0, 1, 5, 4, 5, 8, 9, 9, 0, 2, 8, 8, 1, 4, 3, 1, 0, 6, 7, 7, 2, 4, 3, 1, 1, 3, 5, 2, 6, 3, 0, 2, 3, 1, 4, 0, 9, 4, 5, 1, 2, 2, 4, 8, 5, 3, 6, 0, 3, 6, 0, 2, 0, 9, 4, 6, 9, 5, 5, 6, 8, 7, 4, 2
Offset: 2

Views

Author

Jean-François Alcover, Jul 01 2014

Keywords

Comments

Essentially the same digit sequence as A239798, A019863 and A019827. - R. J. Mathar, Jul 03 2014
The minimal polynomial of this constant is x^2 - 11*x - 1. - Joerg Arndt, Jan 01 2017

Examples

			11.09016994374947424102293417182819058860154589902881431067724311352630...
		

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 5.12.1 Phase transitions in Lattice Gas Models, p. 347.
  • Alfred S. Posamentier, Math Charmers, Tantalizing Tidbits for the Mind, Prometheus Books, NY, 2003, pages 138-139.
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, Revised edition 1987. See p. 83.

Crossrefs

Programs

  • Mathematica
    RealDigits[GoldenRatio^5, 10, 103] // First
  • PARI
    (5*sqrt(5)+11)/2 \\ Charles R Greathouse IV, Aug 10 2016

Formula

Equals ((1 + sqrt(5))/2)^5 = (11 + 5*sqrt(5))/2.
Equals phi^5 = 11 + 1/phi^5 = 3 + 5*phi, an integer in the quadratic number field Q(sqrt(5)). - Wolfdieter Lang, Nov 11 2023
Equals lim_{n->infinity} S(n, 5*(-1 + 2*phi))/ S(n-1, 5*(-1 + 2*phi)), with the S-Chebyshev polynomials (see A049310). - Wolfdieter Lang, Nov 15 2023

A317055 Triangle read by rows: T(0,0) = 1; T(n,k) = 10*T(n-1,k) + T(n-2,k-1) for k = 0..floor(n/2); T(n,k)=0 for n or k < 0.

Original entry on oeis.org

1, 10, 100, 1, 1000, 20, 10000, 300, 1, 100000, 4000, 30, 1000000, 50000, 600, 1, 10000000, 600000, 10000, 40, 100000000, 7000000, 150000, 1000, 1, 1000000000, 80000000, 2100000, 20000, 50, 10000000000, 900000000, 28000000, 350000, 1500, 1, 100000000000, 10000000000, 360000000, 5600000, 35000, 60
Offset: 0

Views

Author

Zagros Lalo, Jul 21 2018

Keywords

Comments

The numbers in rows of the triangle are along skew diagonals pointing top-left in center-justified triangle given in A013617 ((1+10*x)^n) and along skew diagonals pointing top-right in center-justified triangle given in A038303 ((10+x)^n).
The coefficients in the expansion of 1/(1-10*x-x^2) are given by the sequence generated by the row sums.
The row sums are Denominators of continued fraction convergents to sqrt(26), see A041041.
If s(n) is the row sum at n, then the ratio s(n)/s(n-1) is approximately 10.09901951359278483002... (a metallic mean) when n approaches infinity (see A176537: (5+sqrt(26))).

Examples

			Triangle begins:
  1;
  10;
  100, 1;
  1000, 20;
  10000, 300, 1;
  100000, 4000, 30;
  1000000, 50000, 600, 1;
  10000000, 600000, 10000, 40;
  100000000, 7000000, 150000, 1000, 1;
  1000000000, 80000000, 2100000, 20000, 50;
  10000000000, 900000000, 28000000, 350000, 1500, 1;
  100000000000, 10000000000, 360000000, 5600000, 35000, 60;
		

References

  • Shara Lalo and Zagros Lalo, Polynomial Expansion Theorems and Number Triangles, Zana Publishing, 2018, ISBN: 978-1-9995914-0-3, pp. 70, 102

Crossrefs

Row sums give A041041.
Cf. A011557 (column 0), A053541 (column 1), A081140 (column 2).

Programs

  • Mathematica
    t[0, 0] = 1; t[n_, k_] := t[n, k] = If[n < 0 || k < 0, 0, 10 t[n - 1, k] + t[n - 2, k - 1]]; Table[t[n, k], {n, 0, 11}, {k, 0, Floor[n/2]}] // Flatten

A351898 Decimal expansion of metallic ratio for N = 14.

Original entry on oeis.org

1, 4, 0, 7, 1, 0, 6, 7, 8, 1, 1, 8, 6, 5, 4, 7, 5, 2, 4, 4, 0, 0, 8, 4, 4, 3, 6, 2, 1, 0, 4, 8, 4, 9, 0, 3, 9, 2, 8, 4, 8, 3, 5, 9, 3, 7, 6, 8, 8, 4, 7, 4, 0, 3, 6, 5, 8, 8, 3, 3, 9, 8, 6, 8, 9, 9, 5, 3, 6, 6, 2, 3, 9, 2, 3, 1, 0, 5, 3, 5, 1, 9, 4, 2, 5, 1, 9
Offset: 2

Views

Author

A.H.M. Smeets, Feb 24 2022

Keywords

Comments

Decimal expansion of continued fraction [14; 14, 14, 14, ...].
Also largest solution of x^2 - 14 x - 1 = 0.
Essentially the same digit sequence as A010503, A157214, A174968 and A268683.
The metallic ratio's for N = A077444(n) are equal to powers of the silver ratio, i.e., A014166^(2n-1); this constant represents the special case for N = A077444(2).

Examples

			14.0710678118654752440084436210484903928483593...
		

Crossrefs

Metallic ratios: A001622 (N=1), A014176 (N=2), A098316 (N=3), A098317 (N=4), A098318 (N=5), A176398 (N=6), A176439 (N=7), A176458 (N=8), A176522 (N=9), A176537 (N=10), A244593 (N=11).

Programs

  • Mathematica
    RealDigits[7 + 5*Sqrt[2], 10, 100][[1]] (* Amiram Eldar, Feb 24 2022 *)
  • PARI
    (1+sqrt(2))^3

Formula

Equals 2 + 5*A014176.
Equals A014176^3.
Equals exp(arcsinh(7)). - Amiram Eldar, Jul 04 2023
Showing 1-4 of 4 results.