A219300 Decimal expansion of the second smallest known Salem number.

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

Offset: 1

Author

Arkadiusz Wesolowski, Nov 17 2012

Keywords

• cons
• nonn

Comments

This number is algebraic of degree 18. Sequence A073011 contains the smallest known Salem number.

It is the only root r of the polynomial x^18 - x^17 + x^16 - x^15 - x^12 + x^11 - x^10 + x^9 - x^8 + x^7 - x^6 - x^3 + x^2 - x + 1 with abs(r) > 1. - Joerg Arndt, Nov 18 2012

Examples

			1.188368147508223588142960958....
		

Links

• Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000
• M. J. Mossinghoff, Small Salem Numbers
• Wikipedia, Salem number
• Index entries for algebraic numbers, degree 18

Crossrefs

Cf. A073011, A173911.

Programs

Mathematica

RealDigits[x /. FindRoot[x^18 - x^17 + x^16 - x^15 - x^12 + x^11 - x^10 + x^9 - x^8 + x^7 - x^6 - x^3 + x^2 - x + 1 == 0, {x, 1, 2}, WorkingPrecision -> 200]][[1]]