13 Jul
2014
13 Jul
'14
9:57 p.m.
In[360]:= Table[GoldenRatio^n*Sin[π*GoldenRatio^n] // N[N[#, 99]] &, {n, 69, 105}] Out[360]= {3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159, 3.14159, -3.14159, -3.14159, -3.14159, 3.14159, 3.14159} --rwg