|
Search: id:A147862
|
|
|
| A147862 |
|
Decimal expansion of smallest positive solution to x^2 = tan x. |
|
+0
7
|
|
| 4, 6, 6, 6, 4, 9, 9, 5, 6, 3, 4, 4, 4, 6, 4, 4, 2, 7, 6, 9, 4, 3, 2, 8, 3, 0, 1, 4, 6, 0, 1, 7, 9, 4, 0, 3, 0, 2, 1, 1, 1, 3, 6, 2, 6, 8, 7, 7, 2, 8, 5, 9, 7, 7, 6, 9, 2, 4, 0, 6, 1, 4, 3, 0, 9, 1, 4, 2, 6, 0, 5, 4, 2, 2, 0, 9, 9, 8, 6, 8, 9, 7, 1, 5, 1, 4, 6, 4, 1, 9, 7, 6, 0, 4, 1, 9, 3, 0, 9, 7
(list; cons; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(Other) For 1 <= n <= 4 use: x=4.4;
starting value of x for the iteration n=1;
n may be 1 or 2 or 3 or 4, but no higher tad=10^(-110);
or other precision of your choice \p120;
or enter this manually in PARI/gp dx=0.001;
arbitrary starting iteration step value while(x, dif=tan(x)-x^n;
if(x>(3.*Pi/2.), print("error; x out of range", x); break);
if(dx<tad, print(x); write(filenam, x); break);
filnam is your filename if(dif<0, x=x+dx; next);
if(dif>0, x=x-dx; dx=dx/10; next)) For n > 4, do all of the following: In line 1, change the starting value of x to 1.0; in line 2, change the value of n to any integer > 4; in the next-to-last line, change the "less than" symbol to "greater than"; in the last line, change the "greater than" symbol to "less than"; in the line containing the string "3.*Pi/2.", delete the "3.*" part.
|
|
CROSSREFS
|
Cf. A115365, A147863-A147868
Sequence in context: A155907 A081261 A046262 this_sequence A029854 A141328 A035551
Adjacent sequences: A147859 A147860 A147861 this_sequence A147863 A147864 A147865
|
|
KEYWORD
|
nonn,cons
|
|
AUTHOR
|
Grover Hughes (ghughes(AT)magtel.com), Nov 16 2008, Nov 19 2008
|
|
|
Search completed in 0.002 seconds
|
