A227422 Decimal expansion of a Young-Fejér-Jackson constant linked to the nonnegativity of certain cosine sums.

4, 5, 6, 7, 8, 0, 1, 8, 8, 2, 6, 0, 7, 2, 6, 7, 0, 7, 0, 1, 6, 0, 3, 7, 0, 8, 3, 8, 2, 5, 5, 4, 1, 1, 0, 8, 9, 7, 0, 6, 8, 0, 2, 6, 0, 1, 8, 8, 1, 9, 7, 2, 2, 4, 9, 8, 8, 3, 7, 7, 2, 2, 0, 2, 9, 4, 5, 5, 0, 8, 5, 2, 9, 0, 7, 1, 7, 3, 8, 7, 2, 2, 9, 8, 6, 7, 8, 8, 1, 4, 7, 4, 2, 3, 0, 5, 0, 7, 5, 9

Offset

1,1

References

Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, p. 242.

Links

Table of n, a(n) for n=1..100.

Formula

min { x : 9*x^7+55*x^6-14*x^5-948*x^4-3247*x^3-5013*x^2-3780*x-1134 = 0 }.

Example

4.56780188260726707016037083825541108970680260188197224988377220294550852907...

Maple

Digits:= 132:
fsolve(9*x^7+55*x^6-14*x^5-948*x^4-3247*x^3-5013*x^2-3780*x-1134, x, 4..5):
s:= convert(%/10, string):
seq(parse(s[n+1]), n=1..Digits-10);  # Alois P. Heinz, Jul 11 2013

Mathematica

x /. NSolve[ 9x^7 + 55x^6 - 14x^5 - 948x^4 - 3247x^3 - 5013x^2 - 3780x - 1134, x, WorkingPrecision -> 100] // Last // RealDigits[#, 10, 100] & // First

Crossrefs

Cf. A227423, A227424, A227425.

Sequence in context: A067471 A102691 A014553 * A121855 A239440 A248355

Adjacent sequences: A227419 A227420 A227421 * A227423 A227424 A227425

Keyword

nonn,cons

Author

Jean-François Alcover, Jul 11 2013

Status

approved