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
KEYWORD
cons,nonn
AUTHOR
Benoit Cloitre, Feb 27 2004
STATUS
approved