OFFSET
1,1
COMMENTS
The maximum modulus root of this polynomial is always a prime.
FORMULA
b[n]=3*Prime[n]-Prime[n]^2 a(n) = Abs[root[i, m]]/.p^3 + 2*p^2 - (3 - b[n])*p - b[n]
MATHEMATICA
b= Table[3* Prime[n] - Prime[n]^2, {n, 1, Digits}] a = Abs[Flatten[Table[p /. Solve[p^3 + 2*p^2 - (3 - b[[n]])*p - b[[n]] == 0, p][[i]], {n, 1, Digits}, {i, 1, 3}]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 01 2005
STATUS
approved