login
A063771
Numbers n such that n^sin(n) > m^sin(m) for all m < n and n^sin(n) is rounded to nearest integer.
1
1, 2, 7, 8, 14, 20, 27, 33, 39, 52, 58, 71, 77, 96, 102, 121, 140, 146, 165, 190, 209, 234, 253, 278, 297, 322, 341, 347, 366, 391, 410, 435, 454, 479, 498, 523, 542, 567, 586, 611, 655, 699, 743, 787, 831, 856, 875, 900, 919, 944, 988, 1032, 1076, 1120, 1164
OFFSET
1,2
LINKS
PROG
(PARI) a=0; j=[]; for(n=1, 1500, b=round(n^sin(n)); if(b>a, a=b; j=concat(j, n))); j
(PARI) { n=0; a=0; for (m=1, 10^9, b=round(m^sin(m)); if(b>a, a=b; write("b063771.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 30 2009
CROSSREFS
Cf. A054673.
Sequence in context: A226819 A270104 A063531 * A064293 A063729 A299151
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 15 2001
STATUS
approved