|
| |
|
|
A114557
|
|
Sequence of cubics with two integer coefficients that give three real roots basaed on the square roots of a prime and negative two as a root.
|
|
1
| |
|
|
2, 5, 4, 6, 8, 8, 12, 10, 20, 14, 24, 16, 32, 20, 36, 22, 44, 26, 56, 32, 60, 34, 72, 40, 80, 44, 84, 46, 92, 50, 104, 56, 116, 62, 120, 64, 132, 70, 140, 74, 144, 76, 156, 82, 164, 86, 176, 92, 192, 100, 200, 104, 204, 106, 212, 110, 216, 112, 224, 116, 252, 130, 260, 134
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| An earlier characteristic polynomial used in a vector Markov had this form of three real roots to a cubic equation. These form a special sequence of cubic equations with integer coefficients: b = Table[Expand[(x + 2)(x - (1 + Sqrt[Prime[n]]))*(x - (1 - Sqrt[Prime[n]]))], {n, 1, 50}]
|
|
|
FORMULA
| Weierstrass elliptic form of a cubic: y^2 =4*x^3-g2[n]*x-g3[n] a(n) = {g3[n]/4,g2[n]/4}
|
|
|
MATHEMATICA
| a = Flatten[Table[Abs[Coefficient[Expand[(x + 2)(x - (1 + Sqrt[Prime[n]]))*(x - (1 - Sqrt[Prime[n]]))], x, m]], {n, 1, 50}, {m, 0, 1}]]
|
|
|
CROSSREFS
| Sequence in context: A075771 A198813 A132698 * A085347 A066337 A129491
Adjacent sequences: A114554 A114555 A114556 * A114558 A114559 A114560
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 15 2006
|
| |
|
|
