The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A126338

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A126338

a(n) = numerator of sum of the reciprocals of all terms in rows 1 through n of table A126336.
(history; published version)

#11 by Bruno Berselli at Wed Oct 11 05:22:32 EDT 2017

STATUS

reviewed

approved

#10 by Michel Marcus at Wed Oct 11 01:59:48 EDT 2017

STATUS

proposed

reviewed

#9 by Michael De Vlieger at Tue Oct 10 22:02:51 EDT 2017

STATUS

editing

proposed

#8 by Michael De Vlieger at Tue Oct 10 22:02:45 EDT 2017

LINKS

Michael De Vlieger, <a href="/A126338/b126338.txt">Table of n, a(n) for n = 1..150</a>

MATHEMATICA

f[l_List] := Append[l, ContinuedFraction[Plus @@ (1/# &) /@ Flatten[l]]]; Numerator@ Table[Plus @@ (1/# &) /@ Flatten@ Nest[f, {{1}}, n - 1], {n, 22}] (* _Ray Chandler_, Dec 26 2006 *)

STATUS

approved

editing

#7 by Charles R Greathouse IV at Wed Apr 09 10:16:59 EDT 2014

AUTHOR

Leroy Quet , Dec 25 2006

Discussion

Wed Apr 09

10:16

OEIS Server: https://oeis.org/edit/global/2156

#6 by N. J. A. Sloane at Wed Feb 05 20:18:30 EST 2014

AUTHOR

_Leroy Quet _ Dec 25 2006

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), _, Dec 26 2006

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

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

frac,nonn,new

AUTHOR

Leroy Quet (qq-quet(AT)mindspring.com), Dec 25 2006

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

MATHEMATICA

f[l_List] := Append[l, ContinuedFraction[Plus @@ (1/# &) /@ Flatten[l]]]; Numerator@Table[Plus @@ (1/# &) /@ Flatten@Nest[f, {{1}}, n - 1], {n, 22}] (*Chandler*)

KEYWORD

frac,nonn,new