login
A090966
Decimal expansion of sum(k>=0,sin(Pi*phi^k)) where phi=(1+sqrt(5))/2.
0
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
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
KEYWORD
cons,nonn
AUTHOR
Benoit Cloitre, Feb 27 2004
STATUS
approved