A090966 Decimal expansion of sum(k>=0,sin(Pi*phi^k)) where phi=(1+sqrt(5))/2.

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

Offset

0,1

Links

Table of n, a(n) for n=0..102.

Formula

sum(k>=0, sin(Pi*phi^k))=0.6644230370543210170957158....

Mathematica

digits = 103; $MaxExtraPrecision = digits + 30; dn = 100; Clear[f]; f[n_] := f[n] = RealDigits[ Sum[ Sin[ Pi*GoldenRatio^k], {k, 0, n}], 10, digits] // First; f[dn]; f[2*dn]; While[ f[n] != f[n - dn], n = n + dn]; f[n] (* Jean-François Alcover, Feb 15 2013 *)

Crossrefs

Sequence in context: A164510 A019957 A099405 * A254153 A255438 A200491

Adjacent sequences: A090963 A090964 A090965 * A090967 A090968 A090969

Keyword

cons,nonn

Author

Benoit Cloitre, Feb 27 2004

Status

approved