|
Search: id:A114568
|
|
|
| A114568 |
|
A vector matrix Markov sequence whose ration approximates the fine structure constant alpha using a single prime 4691 cubic characteristic ploynomial. |
|
+0
1
|
|
| 0, 1, 1, 4694, 14074, 22043016, 110093076, 103601931224, 723540388824, 487340138218336, 4368084700020976, 2294361417644038304, 25075040078386453024, 10810705128907312553856, 139223348225447089786176
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
PrimeQ[4691]==True Characteristic polynomial: Expand[(x + 2)*(x - (1 + Sqrt[4691]))*(x - (1 - Sqrt[4691]))] x^3-4694*x-9380 These approximations serve like 22/7 in the approximation of Pi. The cubics also have the benefit of being able to give Weierstrass elliptical functions.
|
|
FORMULA
|
M = {{0, 1, 0}, {0, 0, 1}, {9380, 4694, 0}} w[0] = {0, 1, 1} w[n_] := w[n] = M.w[n - 1] a(n) = w[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0}, {0, 0, 1}, {9380, 4694, 0}} w[0] = {0, 1, 1} w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n][[1]], {n, 0, 25}]]
|
|
CROSSREFS
|
Sequence in context: A066731 A022244 A114542 this_sequence A107544 A092375 A093789
Adjacent sequences: A114565 A114566 A114567 this_sequence A114569 A114570 A114571
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula, Feb 16 2006
|
|
|
Search completed in 0.002 seconds
|
