|
| |
|
|
A046946
|
|
Sin(n) decreases monotonically to 0.
|
|
0
| |
|
|
1, 3, 44, 311, 377, 688, 710, 103638, 104703, 208341, 312689, 833719, 2292816, 3126535, 6565759, 9692294, 10838702, 74724506, 171126416, 245850922, 411557987
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 * A092545 A011916 A193623
Adjacent sequences: A046943 A046944 A046945 * 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)
|
| |
|
|
