Revision History for A076658
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
| |
| |
| |
|
|
#14 by Michael De Vlieger at Thu May 12 23:07:05 EDT 2022
| |
| |
| |
|
|
#13 by Jon E. Schoenfield at Thu May 12 21:43:03 EDT 2022
| |
| |
| |
|
|
#12 by Jon E. Schoenfield at Thu May 12 21:42:37 EDT 2022
|
|
| NAME
|
Numerator of f(n), where for n> > 2, f(n)=() = (n-1)/f(n-1)+() + (n-2)/f(n-2), with f(1)=1, f(2)=2.
|
|
| COMMENTS
|
f(n)-> Sqrt[sqrt(2n], ), a slowly converging sequence.
The next term in the sequence (a(14)) has 120 digits. [From . - _Harvey P. Dale, _, Nov 29 2011]
|
|
| EXAMPLE
|
f(3)=) = 2/f(2)+) + 1/f(1)=) = 2/2+ + 1/1= = 2/1, therefore in the sequence, 3rd term isso a(3) = 2.
|
|
| PROG
|
makelist(ratnumer(a[n]), n, 1, 15); /* Martin Ettl, Oct 30 2012*/ */
|
|
| EXTENSIONS
|
One more term from _Harvey P. Dale, _, Nov. 29 2011
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#11 by Charles R Greathouse IV at Thu Nov 21 12:47:54 EST 2013
|
|
| MATHEMATICA
|
Numerator[RecurrenceTable[{a[1]==1, a[2]==2, a[n]==(n-1)/a[n-1]+(n-2)/ a[n-2]}, a, {n, 13}]] (* From }]] (* _Harvey P. Dale, _, Nov 29 2011 *)
|
| |
|
|
Discussion
|
| Thu Nov 21
| 12:47
| OEIS Server: https://oeis.org/edit/global/2062
|
| |
| |
|
|
#10 by Bruno Berselli at Tue Oct 30 06:06:45 EDT 2012
| |
| |
| |
|
|
#9 by Martin Ettl at Tue Oct 30 05:12:44 EDT 2012
| |
| |
| |
|
|
#8 by Martin Ettl at Tue Oct 30 05:12:40 EDT 2012
|
|
| PROG
|
(Maxima)
a[1]:1$
a[2]:2$
a[n]:=(n-1)/a[n-1]+(n-2)/a[n-2];
makelist(ratnumer(a[n]), n, 1, 15); /* Martin Ettl, Oct 30 2012*/
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#7 by Russ Cox at Fri Mar 30 17:26:05 EDT 2012
|
|
| AUTHOR
|
_Zak Seidov (zakseidov(AT)yahoo.com), _, Oct 24 2002
|
| |
|
|
Discussion
|
| Fri Mar 30
| 17:26
| OEIS Server: https://oeis.org/edit/global/139
|
| |
| |
|
|
#6 by Harvey P. Dale at Tue Nov 29 10:43:00 EST 2011
| |
| |
| |
|
|
#5 by Harvey P. Dale at Tue Nov 29 10:42:52 EST 2011
|
|
| DATA
|
1, 2, 2, 5, 31, 498, 8955, 2882938, 52586050459, 323804423976901335, 15495775772522155664701173463, 4775184376703288469595772730789093950647769107, 365485679191762741290548194655325571866478457308489227548407339087759232157
|
|
| COMMENTS
|
The next term in the sequence (a(14)) has 120 digits. [From Harvey P. Dale, Nov 29 2011]
|
|
| MATHEMATICA
|
Numerator[RecurrenceTable[{a[1]==1, a[2]==2, a[n]==(n-1)/a[n-1]+(n-2)/ a[n-2]}, a, {n, 13}]] (* From Harvey P. Dale, Nov 29 2011 *)
|
|
| EXTENSIONS
|
One more term from Harvey P. Dale, Nov. 29 2011
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
