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.

A101101 a(1)=1, a(2)=5, and a(n)=6 for n >= 3.

Original entry on oeis.org

1, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6
Offset: 1

Views

Author

Cecilia Rossiter (cecilia(AT)noticingnumbers.net), Dec 15 2004

Keywords

Comments

Previous name was: The first summation of row 3 of Euler's triangle - a row that will recursively accumulate to the power of 3.
Decimal expansion of 47/30. - Elmo R. Oliveira, Aug 09 2024

Crossrefs

Within the "cube" of related sequences with construction based upon MaginNKZ formula, with n downward, k rightward and z backward:
Before: this_sequence, A008458, A003215, A000578, A000537, A024166 or A024166, A101094, A101097, A101102.
Above: this_sequence, below: A101104, A101100.
Within the "cube" of related sequences with construction based upon SeriesAtLevelR formula, with n downward, x rightward and r backward:
Above: this_sequence, below: A101103, A101096.

Programs

  • Mathematica
    MagicNKZ=Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 3, 3}, {z, 1, 1}, {k, 0, 34}] (* OR *)
    SeriesAtLevelR = Sum[Eulerian[n, i - 1]*Binomial[n + x - i + r, n + r], {i, 1, n}]; Table[SeriesAtLevelR, {n, 3, 3}, {r, -3, -3}, {x, 4, 35}]
    Join[{1, 5},LinearRecurrence[{1},{6},78]] (* Ray Chandler, Sep 23 2015 *)

Formula

G.f.: x*(1+4*x+x^2)/(1-x). - L. Edson Jeffery, Jan 29 2012

Extensions

I wish the sequence was as interesting as the list of references! - N. J. A. Sloane
New name from Joerg Arndt, Nov 30 2014