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

A007018 a(n) = a(n-1)^2 + a(n-1), a(0)=1.

Original entry on oeis.org

1, 2, 6, 42, 1806, 3263442, 10650056950806, 113423713055421844361000442, 12864938683278671740537145998360961546653259485195806
Offset: 0

Views

Author

Keywords

Comments

Number of ordered trees having nodes of outdegree 0,1,2 and such that all leaves are at level n. Example: a(2)=6 because, denoting by I a path of length 2 and by Y a Y-shaped tree with 3 edges, we have I, Y, I*I, I*Y, Y*I, Y*Y, where * denotes identification of the roots. - Emeric Deutsch, Oct 31 2002
Equivalently, the number of acyclic digraphs (dags) that unravel to a perfect binary tree of height n. - Nachum Dershowitz, Jul 03 2022
a(n) has at least n different prime factors. [Saidak]
Subsequence of squarefree numbers (A005117). - Reinhard Zumkeller, Nov 15 2004 [This has been questioned, see MathOverflow link. - Charles R Greathouse IV, Mar 30 2015]
For prime factors see A007996.
Curtiss shows that if the reciprocal sum of the multiset S = {x_1, x_2, ..., x_n} is 1, then max(S) <= a(n). - Charles R Greathouse IV, Feb 28 2007
The number of reduced ZBDDs for Boolean functions of n variables in which there is no zero sink. (ZBDDs are "zero-suppressed binary decision diagrams.") For example, a(2)=6 because of the 2-variable functions whose truth tables are 1000, 1010, 1011, 1100, 1110, 1111. - Don Knuth, Jun 04 2007
Using the methods of Aho and Sloane, Fibonacci Quarterly 11 (1973), 429-437, it is easy to show that a(n) is the integer just a tiny bit below the real number theta^{2^n}-1/2, where theta =~ 1.597910218 is the exponential of the rapidly convergent series Sum_{n>=0} log(1+1/a_n)/2^{n+1}. For example, theta^32 - 1/2 =~ 3263442.0000000383. - Don Knuth, Jun 04 2007 [Corrected by Darryl K. Nester, Jun 19 2017]
The next term has 209 digits. - Harvey P. Dale, Sep 07 2011
Urquhart shows that a(n) is the minimum size of a tableau refutation of the clauses of the complete binary tree of depth n, see pp. 432-434. - Charles R Greathouse IV, Jan 04 2013
For any positive a(0), the sequence a(n) = a(n-1) * (a(n-1) + 1) gives a constructive proof that there exists integers with at least n distinct prime factors, e.g. a(n). As a corollary, this gives a constructive proof of Euclid's theorem stating that there are an infinity of primes. - Daniel Forgues, Mar 03 2017
Lower bound for A100016 (with equality for the first 5 terms), where a(n)+1 is replaced by nextprime(a(n)). - M. F. Hasler, May 20 2019

References

  • R. Honsberger, Mathematical Gems III, M.A.A., 1985, p. 94.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Lower bound for A100016.
Row sums of A122888.

Programs

  • Haskell
    a007018 n = a007018_list !! n
    a007018_list = iterate a002378 1  -- Reinhard Zumkeller, Dec 18 2013
    
  • Magma
    [n eq 1 select 1 else Self(n-1)^2 + Self(n-1): n in [1..10]]; // Vincenzo Librandi, May 19 2015
    
  • Maple
    A007018 := proc(n)
        option remember;
        local aprev;
        if n = 0 then
            1;
        else
            aprev := procname(n-1) ;
            aprev*(aprev+1) ;
        end if;
    end proc: # R. J. Mathar, May 06 2016
  • Mathematica
    FoldList[#^2 + #1 &, 1, Range@ 8] (* Robert G. Wilson v, Jun 16 2011 *)
    NestList[#^2 + #&, 1, 10] (* Harvey P. Dale, Sep 07 2011 *)
  • Maxima
    a[1]:1$
    a[n]:=(a[n-1] + (a[n-1]^2))$
    A007018(n):=a[n]$
    makelist(A007018(n),n,1,10); /* Martin Ettl, Nov 08 2012 */
    
  • PARI
    a(n)=if(n>0,my(x=a(n-1));x^2+x,1) \\ Edited by M. F. Hasler, May 20 2019 and Jason Yuen, Mar 01 2025
    
  • Python
    from itertools import islice
    def A007018_gen(): # generator of terms
        a = 1
        while True:
            yield a
            a *= a+1
    A007018_list = list(islice(A007018_gen(),9)) # Chai Wah Wu, Mar 19 2024

Formula

a(n) = A000058(n)-1 = A000058(n-1)^2 - A000058(n-1) = 1/(1-Sum_{jA000058(j)) where A000058 is Sylvester's sequence. - Henry Bottomley, Jul 23 2001
a(n) = floor(c^(2^n)) where c = A077125 = 1.597910218031873178338070118157... - Benoit Cloitre, Nov 06 2002
a(1)=1, a(n) = Product_{k=1..n-1} (a(k)+1). - Benoit Cloitre, Sep 13 2003
a(n) = A139145(2^(n+1) - 1). - Reinhard Zumkeller, Apr 10 2008
If an (additional) initial 1 is inserted, a(n) = Sum_{kFranklin T. Adams-Watters, Jun 11 2009
a(n+1) = a(n)-th oblong (or promic, pronic, or heteromecic) numbers (A002378). a(n+1) = A002378(a(n)) = A002378(a(n-1)) * (A002378(a(n-1)) + 1). - Jaroslav Krizek, Sep 13 2009
a(n) = A053631(n)/2. - Martin Ettl, Nov 08 2012
Sum_{n>=0} (-1)^n/a(n) = A118227. - Amiram Eldar, Oct 29 2020
Sum_{n>=0} 1/a(n) = A371321. - Amiram Eldar, Mar 19 2024

A053630 Pythagorean spiral: a(n-1), a(n)-1 and a(n) are sides of a right triangle.

Original entry on oeis.org

3, 5, 13, 85, 3613, 6526885, 21300113901613, 226847426110843688722000885, 25729877366557343481074291996721923093306518970391613
Offset: 1

Views

Author

Henry Bottomley, Mar 21 2000

Keywords

Comments

Least prime factors of a(n): 3, 5, 13, 5, 3613, 5, 233, 5, 3169, 5, 101, 5, 29, 5, 695838629, 5, 1217, 5, 2557, 5, 101, 5, 769, 5. - Zak Seidov, Nov 11 2013

Examples

			a(3)=13 because 5,12,13 is a Pythagorean triple and a(2)=5.
		

References

  • R. Gelca and T. Andreescu, Putnam and Beyond, Springer 2007, p. 121.

Crossrefs

See also A018928, A180313 and A239381 for similar sequences with a(n) a leg and a(n+1) the hypotenuse of a Pythagorean triangle.
Cf. A077125, A117191 (4^(1/Pi)).

Programs

  • Maple
    A:= proc(n) option remember; (procname(n-1)^2+1)/2 end proc: A(1):= 3:
    seq(A(n),n=1..10); # Robert Israel, Jul 14 2014
  • Mathematica
    NestList[(#^2+1)/2&,3,10] (* Harvey P. Dale, Sep 15 2011 *)
  • PARI
    {a(n) = if( n>1, (a(n-1)^2 + 1) / 2, 3)}; /* Michael Somos, May 15 2011 */

Formula

a(1) = 3, a(n) = (a(n-1)^2 + 1)/2 for n > 1.
a(n) = 2*A000058(n)-1 = A053631(n)+1 = floor(2 * 1.597910218031873...^(2^n)). Constructing the spiral as a sequence of triangles with one vertex at the origin, then for large n the other vertices are close to lying on the doubly logarithmic spiral r = 2*2.228918357655...^(1.5546822754821...^theta) where theta(n) = n*Pi/2 - 1.215918200344... and 1.5546822754821... = 4^(1/Pi).
a(1) = 3, a(n+1) = (1/4)*((a(n)-1)^2 + (a(n)+1)^2). - Amarnath Murthy, Aug 17 2005
a(n)^2 - (a(n)-1)^2 = a(n-1)^2, so 2*a(n)-1 = a(n-1)^2 (see the first formula). - Thomas Ordowski, Jul 13 2014
a(n) = (A006892(n+2) + 3)/2. - Thomas Ordowski, Jul 14 2014
a(n)^2 = A006892(n+3) + 2. - Thomas Ordowski, Jul 19 2014

Extensions

Corrected and extended by James Sellers, Mar 22 2000

A123180 Even positions of Sylvester's sequence A000058; the denominators of the (greedy) Egyptian fraction expansion of Cahen's constant.

Original entry on oeis.org

2, 7, 1807, 10650056950807, 12864938683278671740537145998360961546653259485195807
Offset: 0

Views

Author

David Eppstein, Oct 03 2006

Keywords

Crossrefs

Programs

  • Mathematica
    f[n_] := n*(n-1)*(n*(n-1)+1)+1; a[0] = 2; a[n_] := a[n] = f[a[n-1]]; Array[a, 5, 0] (* Amiram Eldar, Mar 19 2024 *)
    1+NestList[#(#+1)(#^2+#+1) &, 1, 4] (* Oliver Seipel, Aug 25 2024 *)
  • PARI
    a(n)=if(n, my(k=a(n-1));k*=k-1; k*(k+1)+1, 2) \\ Charles R Greathouse IV, Dec 12 2013

Formula

a(n) = a(n-1)*(a(n-1)-1)*(a(n-1)*(a(n-1)-1)+1)+1.
a(n) is approximately k^4^n with k = 1.5979102180318731783... (A077125). - Charles R Greathouse IV, Dec 12 2013
Sum_{n>=0} 1/a(n) = A118227. - Amiram Eldar, Mar 19 2024

Extensions

a(4) from Charles R Greathouse IV, Dec 12 2013
Showing 1-3 of 3 results.