[go: up one dir, main page]

login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
Revision History for A127678 (Underlined text is an addition; strikethrough text is a deletion.)

Showing all changes.
A127678 a(n) = numerator of b(n), where b(1) = 1, b(n+1) = (sum{k=1 to n} b(k))/product{j=1 to n} b(j).
(history; published version)
#9 by Ray Chandler at Thu Oct 10 11:29:21 EDT 2019
STATUS

editing

approved

#8 by Ray Chandler at Thu Oct 10 11:29:18 EDT 2019
MATHEMATICA

f[l_List] := Append[l, Plus @@ l/Times @@ l]; Numerator[Nest[f, {1}, 20]] (*]] (* _Ray Chandler*)_, Feb 13 2007 *)

STATUS

approved

editing

#7 by Charles R Greathouse IV at Wed Apr 09 10:12:25 EDT 2014
AUTHOR

_Leroy Quet_ _, Jan 23 2007

Discussion
Wed Apr 09 10:12
OEIS Server: https://oeis.org/edit/global/2145
#6 by N. J. A. Sloane at Wed Feb 05 20:18:31 EST 2014
AUTHOR

_Leroy Quet _ Jan 23 2007

Discussion
Wed Feb 05 20:18
OEIS Server: https://oeis.org/edit/global/2118
#5 by Russ Cox at Fri Mar 30 17:29:54 EDT 2012
EXTENSIONS

Extended by _Ray Chandler (rayjchandler(AT)sbcglobal.net), _, Feb 13 2007

Discussion
Fri Mar 30 17:29
OEIS Server: https://oeis.org/edit/global/154
#4 by N. J. A. Sloane at Sat Oct 02 03:00:00 EDT 2010
LINKS

Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)

KEYWORD

easy,frac,nonn,new

#3 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009
LINKS

Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)

KEYWORD

easy,frac,nonn,new

AUTHOR

Leroy Quet (qq-quet(AT)mindspring.com), Jan 23 2007

#2 by N. J. A. Sloane at Sun Jun 29 03:00:00 EDT 2008
MATHEMATICA

f[l_List] := Append[l, Plus @@ l/Times @@ l]; Numerator[Nest[f, {1}, 20]](*]] (*Chandler*)

KEYWORD

easy,frac,nonn,new

#1 by N. J. A. Sloane at Fri May 11 03:00:00 EDT 2007
NAME

a(n) = numerator of b(n), where b(1) = 1, b(n+1) = (sum{k=1 to n} b(k))/product{j=1 to n} b(j).

DATA

1, 1, 2, 2, 3, 5, 7, 17, 39, 131, 241, 1843, 33951, 475103, 66624833, 17107028693, 33453912854619, 1200873381252944089, 200445185648334612665809, 14036199771684615424002710560757

OFFSET

1,3

FORMULA

For n >= 4, b(n) = 1 +(b(n-1)-1)/b(n-2).

MATHEMATICA

f[l_List] := Append[l, Plus @@ l/Times @@ l]; Numerator[Nest[f, {1}, 20]](*Chandler*)

CROSSREFS

Cf. A127679.

KEYWORD

easy,frac,nonn

AUTHOR

Leroy Quet (qq-quet(AT)mindspring.com), Jan 23 2007

EXTENSIONS

Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 13 2007

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 1 06:23 EDT 2024. Contains 375575 sequences. (Running on oeis4.)