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

A257966 Indices of primes in the 11th-order Fibonacci number sequence, A127624.

Original entry on oeis.org

12, 14, 18, 32, 33, 52, 77, 100, 105, 130, 143, 180, 210, 226, 357, 377, 472, 548, 989, 1129, 1174, 1421, 1722, 4769, 6544, 6879, 7893, 18888, 21061, 24419, 25884, 32675, 53776, 62186, 109848, 110989, 123527, 160462
Offset: 1

Views

Author

Robert Price, May 14 2015

Keywords

Comments

a(39) > 2*10^5.

Crossrefs

Programs

A257967 Primes in the 11th-order Fibonacci numbers A127624.

Original entry on oeis.org

11, 41, 641, 10462721, 20920321, 10917370260001, 364090824435675874561, 3037065045777476472194281921, 97067184407836614348142428161, 3237159714751144204638073829896089601, 26434543100644872259207947255028288307201, 3600373169282616313621210190325730096037120382894091
Offset: 1

Views

Author

Robert Price, May 14 2015

Keywords

Comments

a(13) is too large to display here. It has 61 digits and is the 210th term in A127624.

Crossrefs

Programs

  • Mathematica
    a={1,1,1,1,1,1,1,1,1,1,1}; step=11; offset=1; lst={}; For[n=step+offset,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,sum]]; a=RotateLeft[a]; a[[step]]=sum]; lst

A166444 a(0) = 0, a(1) = 1 and for n > 1, a(n) = sum of all previous terms.

Original entry on oeis.org

0, 1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, 2097152, 4194304, 8388608, 16777216, 33554432, 67108864, 134217728, 268435456, 536870912, 1073741824, 2147483648, 4294967296, 8589934592
Offset: 0

Views

Author

Robert G. Wilson v, Oct 13 2009

Keywords

Comments

Essentially a duplicate of A000079. - N. J. A. Sloane, Oct 15 2009
a(n) is the number of compositions of n into an odd number of parts.
Also 0 together with A011782. - Omar E. Pol, Oct 28 2013
Inverse INVERT transform of A001519. - R. J. Mathar, Dec 08 2022

Examples

			G.f. = x + x^2 + 2*x^3 + 4*x^4 + 8*x^5 + 16*x^6 + 32*x^7 + 64*x^8 + 128*x^9 + ...
		

Crossrefs

Programs

  • Magma
    [n le 1 select n else 2^(n-2): n in [0..40]]; // G. C. Greubel, Jul 27 2024
    
  • Maple
    a:= n-> `if`(n<2, n, 2^(n-2)):
    seq(a(n), n=0..40);  # Alois P. Heinz, Jun 02 2021
  • Mathematica
    a[0] = 0; a[1] = 1; a[n_] := a[n] = Plus @@ Array[a, n - 1]; Array[a, 35, 0]
  • SageMath
    [(2^n +2*int(n==1) -int(n==0))/4 for n in range(41)] # G. C. Greubel, Jul 27 2024

Formula

a(n) = A000079(n-1) for n > 0.
O.g.f.: x*(1 - x) / (1 - 2*x) = x / (1 - x / (1 - x)).
a(n) = (1-n) * a(n-1) + 2 * Sum_{k=1..n-1} a(k) * a(n-k) if n>1. - Michael Somos, Jul 23 2011
E.g.f.: (exp(2*x) + 2*x - 1)/4. - Stefano Spezia, Aug 07 2022

A125950 a(0)=a(1)=...=a(9)=1; a(n) = - a(n-1) + a(n-3) + a(n-4) + a(n-5) + a(n-6) + a(n-7) - a(n-9) - a(n-10).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 10, 11, 13, 16, 18, 22, 25, 30, 35, 41, 49, 57, 67, 79, 93, 109, 129, 151, 178, 209, 246, 290, 340, 401, 471, 554, 652, 767, 902, 1061, 1248, 1468, 1727, 2031, 2390, 2810, 3306, 3889, 4574, 5381, 6329
Offset: 0

Views

Author

Luis A Restrepo (luisiii(AT)mac.com), Feb 04 2007

Keywords

Comments

a(n) = O(n^c), where c is the larger real root of x^10+x^9-x^7-x^6-x^5-x^4-x^3+x+1, 1.176280818..., the smallest known Salem constant.

References

  • Wolfram, S., A New Kind of Science. Champaign, IL: Wolfram Media, pp. 82-92, 2002.

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{-1,0,1,1,1,1,1,0,-1,-1},{1,1,1,1,1,1,1,1,1,1},70] (* Harvey P. Dale, May 31 2013 *)

Formula

G.f.: ( 1+2*x+2*x^2+x^3-x^5-2*x^6-3*x^7-3*x^8-2*x^9 ) / ( 1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10 ). [R. J. Mathar, Jun 30 2010]

Extensions

Edited by Don Reble, Mar 09 2007

A126116 a(n) = a(n-1) + a(n-3) + a(n-4), with a(0)=a(1)=a(2)=a(3)=1.

Original entry on oeis.org

1, 1, 1, 1, 3, 5, 7, 11, 19, 31, 49, 79, 129, 209, 337, 545, 883, 1429, 2311, 3739, 6051, 9791, 15841, 25631, 41473, 67105, 108577, 175681, 284259, 459941, 744199, 1204139, 1948339, 3152479, 5100817, 8253295, 13354113, 21607409, 34961521
Offset: 0

Views

Author

Luis A Restrepo (luisiii(AT)mac.com), Mar 05 2007

Keywords

Comments

This sequence has the same growth rate as the Fibonacci sequence, since x^4 - x^3 - x - 1 has the real roots phi and -1/phi.
The Ca1 sums, see A180662 for the definition of these sums, of triangle A035607 equal the terms of this sequence without the first term. - Johannes W. Meijer, Aug 05 2011

Examples

			G.f. = 1 + x + x^2 + x^3 + 3*x^4 + 5*x^5 + 7*x^6 + 11*x^7 + 19*x^8 + 31*x^9 + ...
		

References

  • S. Wolfram, A New Kind of Science. Champaign, IL: Wolfram Media, pp. 82-92, 2002

Crossrefs

Cf. Fibonacci numbers A000045; Lucas numbers A000032; tribonacci numbers A000213; tetranacci numbers A000288; pentanacci numbers A000322; hexanacci numbers A000383; 7th-order Fibonacci numbers A060455; octanacci numbers A079262; 9th-order Fibonacci sequence A127193; 10th-order Fibonacci sequence A127194; 11th-order Fibonacci sequence A127624, A128429.

Programs

  • GAP
    a:=[1,1,1,1];; for n in [5..50] do a[n]:=a[n-1]+a[n-3]+a[n-4]; od; a; # G. C. Greubel, Jul 15 2019
  • Magma
    [n le 4 select 1 else Self(n-1) + Self(n-3) + Self(n-4): n in [1..50]]; // Vincenzo Librandi, Dec 25 2015
    
  • Maple
    # From R. J. Mathar, Jul 22 2010: (Start)
    A010684 := proc(n) 1+2*(n mod 2) ; end proc:
    A000032 := proc(n) coeftayl((2-x)/(1-x-x^2),x=0,n) ; end proc:
    A126116 := proc(n) ((-1)^floor(n/2)*A010684(n)+2*A000032(n))/5 ; end proc: seq(A126116(n),n=0..80) ; # (End)
    with(combinat): A126116 := proc(n): fibonacci(n-1) + fibonacci(floor((n-4)/2)+1)* fibonacci(ceil((n-4)/2)+2) end: seq(A126116(n), n=0..38); # Johannes W. Meijer, Aug 05 2011
  • Mathematica
    LinearRecurrence[{1,0,1,1},{1,1,1,1},50] (* Harvey P. Dale, Nov 08 2011 *)
  • PARI
    Vec((x-1)*(1+x+x^2)/((x^2+x-1)*(x^2+1)) + O(x^50)) \\ Altug Alkan, Dec 25 2015
    
  • Sage
    ((1-x)*(1+x+x^2)/((1-x-x^2)*(1+x^2))).series(x, 50).coefficients(x, sparse=False) # G. C. Greubel, Jul 15 2019
    

Formula

From R. J. Mathar, Jul 22 2010: (Start)
G.f.: (1-x)*(1+x+x^2)/((1-x-x^2)*(1+x^2)).
a(n) = ( (-1)^floor(n/2) * A010684(n) + 2*A000032(n))/5.
a(2*n) = A061646(n). (End)
From Johannes W. Meijer, Aug 05 2011: (Start)
a(n) = F(n-1) + A070550(n-4) with F(n) = A000045(n).
a(n) = F(n-1) + F(floor((n-4)/2) + 1)*F(ceiling((n-4)/2) + 2). (End)
a(n) = (1/5)*((sqrt(5)-1)*(1/2*(1+sqrt(5)))^n - (1+sqrt(5))*(1/2*(1-sqrt(5)))^n + sin((Pi*n)/2) - 3*cos((Pi*n)/2)). - Harvey P. Dale, Nov 08 2011
(-1)^n * a(-n) = a(n) = F(n) - A070550(n - 6). - Michael Somos, Feb 05 2012
a(n)^2 + 3*a(n-2)^2 + 6*a(n-5)^2 + 3*a(n-7)^2 = a(n-8)^2 + 3*a(n-6)^2 + 6*a(n-3)^2 + 3*a(n-1)^2. - Greg Dresden, Jul 07 2021
a(n) = A293411(n)-A293411(n-1). - R. J. Mathar, Jul 20 2025

Extensions

Edited by Don Reble, Mar 09 2007

A207539 Dodecanacci numbers (12th-order Fibonacci sequence): a(n) = a(n-1) +...+ a(n-12) with a(0)=...=a(11)=1.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 12, 23, 45, 89, 177, 353, 705, 1409, 2817, 5633, 11265, 22529, 45057, 90102, 180181, 360317, 720545, 1440913, 2881473, 5762241, 11523073, 23043329, 46081025, 92150785, 184279041, 368513025, 736935948, 1473691715
Offset: 0

Views

Author

Michael Burkhart, Feb 18 2012

Keywords

Crossrefs

Programs

  • Maple
    f12:=proc(n) option remember: if n<=12 then 1: else add(f12(n-i),i=1..12): fi: end:
  • Mathematica
    LinearRecurrence[Table[1, {12}], Table[1, {12}], 100]
  • PARI
    x='x+O('x^50); Vec((1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9-x^10-x^11 +10*x^12)/(1-2*x+x^13)) \\ G. C. Greubel, Jul 28 2017

Formula

G.f.: (1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9-x^10-x^11 +10*x^12)/(1 -2*x +x^13).

A163551 13th-order Fibonacci numbers: a(n) = a(n-1) + ... + a(n-13) with a(1)=...=a(13)=1.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 25, 49, 97, 193, 385, 769, 1537, 3073, 6145, 12289, 24577, 49153, 98305, 196597, 393169, 786289, 1572481, 3144769, 6289153, 12577537, 25153537, 50304001, 100601857, 201191425, 402358273, 804667393
Offset: 1

Views

Author

Jainit Purohit (mjainit(AT)gmail.com), Jul 30 2009

Keywords

Crossrefs

Cf. A000045 (Fibonacci numbers), A000213 (tribonacci), A000288 (tetranacci), A000322 (pentanacci), A000383 (hexanacci), A060455 (heptanacci), A123526 (octanacci), A127193 (nonanacci), A127194 (decanacci), A127624 (undecanacci), A207539 (dodecanacci).

Programs

  • Mathematica
    With[{c=Table[1,{13}]},LinearRecurrence[c,c,40]] (* Harvey P. Dale, Aug 09 2013 *)
  • PARI
    x='x+O('x^50); Vec((1-x^2 -2*x^3-3*x^4 -4*x^5-5*x^6 -6*x^7-7*x^8 -8*x^9 -9*x^10 -10*x^11 -11*x^12) / (1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9-x^10-x^11-x^12-x^13)) \\ G. C. Greubel, Jul 28 2017

Formula

a(n) = a(n-1)+a(n-2)+...+a(n-13) for n > 12, a(0)=a(1)=...=a(12)=1.
G.f.: (-1)*(-1+x^2+2*x^3+3*x^4+4*x^5+5*x^6+6*x^7+7*x^8+8*x^9+9*x^10 +10*x^11 +11*x^12) / (1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9-x^10-x^11-x^12-x^13). - Michael Burkhart, Feb 18 2012

Extensions

Values adapted to the definition by R. J. Mathar, Aug 01 2009
Showing 1-7 of 7 results.