Revision History for A127678
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing all changes.
|
|
|
|
#9 by Ray Chandler at Thu Oct 10 11:29:21 EDT 2019
|
|
|
|
#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
|
|
|
|
|