|
Search: id:A046946
|
|
|
| A046946 |
|
Sin(n) decreases monotonically to 0. |
|
+0
1
|
|
| 1, 3, 44, 311, 377, 688, 710, 103638, 104703, 208341, 312689, 833719, 2292816, 3126535, 6565759, 9692294, 10838702, 74724506, 171126416, 245850922, 411557987
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
REFERENCES
|
Suggested by a question from Alan Walker (Alan_Walker(AT)sabre.com)
|
|
MATHEMATICA
|
z={}; current=1; Timing[ Do[ If[ If[ (t=Sin[ n ])>0, t, 1 ]<current, AppendTo[ z, current=t ] ], {n, 105000 } ] ]; z
|
|
CROSSREFS
|
Cf. A046947.
Sequence in context: A130408 A133073 A055539 this_sequence A092545 A011916 A102811
Adjacent sequences: A046943 A046944 A046945 this_sequence A046947 A046948 A046949
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
EXTENSIONS
|
More terms and Mathematica program from wouter.meeussen(AT)pandora.be. Further terms from Michel ten Voorde (seqfan(AT)tenvoorde.org)
|
|
|
Search completed in 0.002 seconds
|
