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-10 of 13 results. Next

A105754 Lucas 8-step numbers.

Original entry on oeis.org

1, 3, 7, 15, 31, 63, 127, 255, 502, 1003, 2003, 3999, 7983, 15935, 31807, 63487, 126719, 252936, 504869, 1007735, 2011471, 4014959, 8013983, 15996159, 31928831, 63730943, 127208950, 253913031, 506818327, 1011625183, 2019235407
Offset: 1

Views

Author

T. D. Noe, Apr 22 2005

Keywords

Crossrefs

Cf. A000032, A001644, A073817, A074048, A074584, A104621, A105755 (Lucas n-step numbers).

Programs

  • Mathematica
    a={-1, -1, -1, -1, -1, -1, -1, 8}; Table[s=Plus@@a; a=RotateLeft[a]; a[[ -1]]=s, {n, 50}]
    CoefficientList[Series[-x*(1 + 2*x + 3*x^2 + 4*x^3 + 5*x^4 + 6*x^5 + 7*x^6 + 8*x^7 + 9*x^8)/(-1 + x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^8 + x^9), {x, 0, 50}], x] (* G. C. Greubel, Dec 18 2017 *)
  • PARI
    a(n)=([0,1,0,0,0,0,0,0; 0,0,1,0,0,0,0,0; 0,0,0,1,0,0,0,0; 0,0,0,0,1,0,0,0; 0,0,0,0,0,1,0,0; 0,0,0,0,0,0,1,0; 0,0,0,0,0,0,0,1; 1,1,1,1,1,1,1,1]^(n-1)*[1;3;7;15;31;63;127;255])[1,1] \\ Charles R Greathouse IV, Jun 14 2015
    
  • PARI
    x='x+O('x^30); Vec(-x*(1 + 2*x + 3*x^2 + 4*x^3 + 5*x^4 + 6*x^5 + 7*x^6 + 8*x^7 + 9*x^8)/(-1 + x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^8 + x^9)) \\ G. C. Greubel, Dec 18 2017

Formula

a(n) = Sum_{k=1..8} a(n-k) for n > 0, a(0)=8, a(n)=-1 for n=-7..-1.
G.f.: -x*(1 + 2*x + 3*x^2 + 4*x^3 + 5*x^4 + 6*x^5 + 7*x^6 + 8*x^7)/( -1 + x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^8 ). - R. J. Mathar, Jun 20 2011

A106273 Discriminant of the polynomial x^n - x^(n-1) - ... - x - 1.

Original entry on oeis.org

1, 5, -44, -563, 9584, 205937, -5390272, -167398247, 6042477824, 249317139869, -11597205023744, -601139006326619, 34383289858207744, 2151954708695291177, -146323302326154543104, -10742330662077208945103, 846940331265064719417344, 71373256668946058057974997
Offset: 1

Views

Author

T. D. Noe, May 02 2005

Keywords

Comments

This polynomial is the characteristic polynomial of the Fibonacci and Lucas n-step sequences. These discriminants are prime for n=2, 4, 6, 26, 158 (A106274). It appears that the term a(2n+1) always has a factor of 2^(2n). With that factor removed, the discriminants are prime for odd n=3, 5, 7, 21, 99, 405. See A106275 for the combined list.
a(n) is the determinant of an r X r Hankel matrix whose entries are w(i+j) where w(n) = x1^n + x2^n + ... + xr^n where x1,x2,...xr are the roots of the titular characteristic polynomial. E.g., A000032 for n=2, A001644 for n=3, A073817 for n=4, A074048 for n=5, A074584 for n=6, A104621 for n=7, ... - Kai Wang, Jan 17 2021
Luca proves that a(n) is a term of the corresponding k-nacci sequence only for n=2 and 3. - Michel Marcus, Apr 12 2025

Crossrefs

Cf. A086797 (discriminant of the polynomial x^n-x-1), A000045, A000073, A000078, A001591, A001592 (Fibonacci n-step sequences), A000032, A001644, A073817, A074048, A074584, A104621, A105754, A105755 (Lucas n-step sequences), A086937, A106276, A106277, A106278 (number of distinct zeros of these polynomials for n=2, 3, 4, 5).

Programs

  • Mathematica
    Discriminant[p_?PolynomialQ, x_] := With[{n=Exponent[p, x]}, Cancel[((-1)^(n(n-1)/2) Resultant[p, D[p, x], x])/Coefficient[p, x, n]^(2n-1)]]; Table[Discriminant[x^n-Sum[x^i, {i, 0, n-1}], x], {n, 20}]
  • PARI
    {a(n)=(-1)^(n*(n+1)/2)*((n+1)^(n+1)-2*(2*n)^n)/(n-1)^2}  \\ Max Alekseyev, May 05 2005
    
  • PARI
    a(n)=poldisc('x^n-sum(k=0,n-1,'x^k)); \\ Joerg Arndt, May 04 2013

Formula

a(n) = (-1)^(n*(n+1)/2) * ((n+1)^(n+1)-2*(2*n)^n)/(n-1)^2. - Max Alekseyev, May 05 2005

A251746 9-step Fibonacci sequence starting with 0,0,0,0,0,0,0,1,0.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 4, 8, 16, 32, 64, 128, 255, 510, 1019, 2036, 4068, 8128, 16240, 32448, 64832, 129536, 258817, 517124, 1033229, 2064422, 4124776, 8241424, 16466608, 32900768, 65736704, 131343872, 262428927, 524340730, 1047648231, 2093232040
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Comments

a(n+9) equals the number of n-length binary words avoiding runs of zeros of lengths 9i+8, (i=0,1,2,...). - Milan Janjic, Feb 26 2015

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251747, A251748, A251749, A251750, A251751, A251752.
Cf. A255530 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 0, 0, 0, 0, 0, 1, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^7*(x-1)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025
a(n) = A104144(n+1)-A104144(n). - R. J. Mathar, Mar 28 2025

A251747 9-step Fibonacci sequence starting with 0,0,0,0,0,0,1,0,0.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 2, 4, 8, 16, 32, 64, 127, 254, 508, 1015, 2028, 4052, 8096, 16176, 32320, 64576, 129025, 257796, 515084, 1029153, 2056278, 4108504, 8208912, 16401648, 32770976, 65477376, 130825727, 261393658, 522272232, 1043515311, 2084974344
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251748, A251749, A251750, A251751, A251752.
Cf. A255531 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 0, 0, 0, 0, 1, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^6*(-1+x+x^2)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025
a(n) = A104144(n+2)-A104144(n+1)-A104144(n). - R. J. Mathar, Mar 28 2025

A251749 9-step Fibonacci sequence starting with 0,0,0,0,1,0,0,0,0.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 2, 4, 8, 16, 31, 62, 124, 248, 496, 991, 1980, 3956, 7904, 15792, 31553, 63044, 125964, 251680, 502864, 1004737, 2007494, 4011032, 8014160, 16012528, 31993503, 63923962, 127721960, 255192240, 509881616, 1018758495, 2035509496
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251747, A251748, A251750, A251751, A251752.
Cf. A255532 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 0, 0, 1, 0, 0, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^4*(-1+x+x^2+x^3+x^4)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025

A251750 9-step Fibonacci sequence starting with 0,0,0,1,0,0,0,0,0.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 2, 4, 8, 15, 30, 60, 120, 240, 480, 959, 1916, 3828, 7648, 15281, 30532, 61004, 121888, 243536, 486592, 972225, 1942534, 3881240, 7754832, 15494383, 30958234, 61855464, 123589040, 246934544, 493382496, 985792767, 1969643000
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251747, A251748, A251749, A251751, A251752.
Cf. A255533 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 0, 1, 0, 0, 0, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^3*(-1+x+x^2+x^3+x^4+x^5)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025

A251751 9-step Fibonacci sequence starting with 0,0,1,0,0,0,0,0,0.

Original entry on oeis.org

0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 2, 4, 7, 14, 28, 56, 112, 224, 448, 895, 1788, 3572, 7137, 14260, 28492, 56928, 113744, 227264, 454080, 907265, 1812742, 3621912, 7236687, 14459114, 28889736, 57722544, 115331344, 230435424, 460416768, 919926271, 1838039800
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251747, A251748, A251749, A251750, A251752.
Cf. A255534 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 1, 0, 0, 0, 0, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^2*(-1+x+x^2+x^3+x^4+x^5+x^6)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025
a(n) = A172319(n-2)-2*A172319(n-3)+A172319(n-9). - R. J. Mathar, Mar 28 2025

A251752 9-step Fibonacci sequence starting with 0,1,0,0,0,0,0,0,0.

Original entry on oeis.org

0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 6, 12, 24, 48, 96, 192, 384, 767, 1532, 3061, 6116, 12220, 24416, 48784, 97472, 194752, 389120, 777473, 1553414, 3103767, 6201418, 12390616, 24756816, 49464848, 98832224, 197469696, 394550272, 788323071, 1575092728
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251747, A251748, A251749, A251750, A251751.
Cf. A255536 (Indices of primes in this sequence).

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 1, 0, 0, 0, 0, 0, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x*(-1+x+x^2+x^3+x^4+x^5+x^6+x^7)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025
a(n) = A172319(n-1)-2*A172319(n-2)+A172319(n-9). - R. J. Mathar, Mar 28 2025

A125127 Array L(k,n) read by antidiagonals: k-step Lucas numbers.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 3, 4, 1, 1, 3, 7, 7, 1, 1, 3, 7, 11, 11, 1, 1, 3, 7, 15, 21, 18, 1, 1, 3, 7, 15, 26, 39, 29, 1, 1, 3, 7, 15, 31, 51, 71, 47, 1, 1, 3, 7, 15, 31, 57, 99, 131, 76, 1, 1, 3, 7, 15, 31, 63, 113, 191, 241, 123, 1
Offset: 1

Views

Author

Jonathan Vos Post, Nov 21 2006

Keywords

Examples

			Table begins:
1 | 1  1  1   1   1   1    1    1    1    1
2 | 1  3  4   7  11  18   29   47   76  123
3 | 1  3  7  11  21  39   71  131  241  443
4 | 1  3  7  15  26  51   99  191  367  708
5 | 1  3  7  15  31  57  113  223  439  863
6 | 1  3  7  15  31  63  120  239  475  943
7 | 1  3  7  15  31  63  127  247  493  983
8 | 1  3  7  15  31  63  127  255  502 1003
9 | 1  3  7  15  31  63  127  255  511 1013
		

Crossrefs

n-step Lucas number analog of A092921 Array F(k, n) read by antidiagonals: k-generalized Fibonacci numbers (and see related A048887, A048888). L(1, n) = "1-step Lucas numbers" = A000012. L(2, n) = 2-step Lucas numbers = A000204. L(3, n) = 3-step Lucas numbers = A001644. L(4, n) = 4-step Lucas numbers = A001648 Tetranacci numbers A073817 without the leading term 4. L(5, n) = 5-step Lucas numbers = A074048 Pentanacci numbers with initial conditions a(0)=5, a(1)=1, a(2)=3, a(3)=7, a(4)=15. L(6, n) = 6-step Lucas numbers = A074584 Esanacci ("6-anacci") numbers. L(7, n) = 7-step Lucas numbers = A104621 Heptanacci-Lucas numbers. L(8, n) = 8-step Lucas numbers = A105754. L(9, n) = 9-step Lucas numbers = A105755. See A000295, A125129 for comments on partial sums of diagonals.

Programs

  • Sage
    def L(k, n):
        if n < 0:
            return -1
        a = [-1]*(k-1) + [k] # [-1, -1, ..., -1, k]
        for i in range(1, n+1):
            a[:] = a[1:] + [sum(a)]
        return a[-1]
    [L(k, n) for d in (1..12) for k, n in zip((d..1, step=-1), (1..d))] # Freddy Barrera, Jan 10 2019

Formula

L(k,n) = L(k,n-1) + L(k,n-2) + ... + L(k,n-k); L(k,n) = -1 for n < 0, and L(k,0) = k.
G.f. for row k: x*(dB(k,x)/dx)/(1-B(k,x)), where B(k,x) = x + x^2 + ... + x^k. - Petros Hadjicostas, Jan 24 2019

Extensions

Corrected by Freddy Barrera, Jan 10 2019

A251748 9-step Fibonacci sequence starting with 0,0,0,0,0,1,0,0,0.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 2, 4, 8, 16, 32, 63, 126, 252, 504, 1007, 2012, 4020, 8032, 16048, 32064, 64065, 128004, 255756, 511008, 1021009, 2040006, 4075992, 8143952, 16271856, 32511648, 64959231, 129790458, 259325160, 518139312, 1035257615, 2068475224
Offset: 0

Views

Author

Arie Bos, Dec 07 2014

Keywords

Comments

The only primes in this sequence whose indices are less than 2*10^5 are 2 and 65865769729, which correspond to indices of 10 and 45. - Robert Price, Feb 24 2015

Crossrefs

Other 9-step Fibonacci sequences are A104144, A105755, A127193, A251746, A251747, A251749, A251750, A251751, A251752.

Programs

  • Mathematica
    LinearRecurrence[Table[1, {9}], {0, 0, 0, 0, 0, 1, 0, 0, 0}, 44] (* Michael De Vlieger, Dec 09 2014 *)

Formula

a(n+9) = a(n)+a(n+1)+a(n+2)+a(n+3)+a(n+4)+a(n+5)+a(n+6)+a(n+7)+a(n+8).
G.f.: x^5*(-1+x+x^2+x^3)/(-1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9) . - R. J. Mathar, Mar 28 2025
Showing 1-10 of 13 results. Next