login
A221708
Records in A216377.
3
2, 3, 5, 9, 13, 17, 21, 30, 40, 45, 50, 66, 77, 100, 118, 124, 130, 155, 161, 226, 246, 273, 371, 378, 385, 421, 450, 472, 509, 584, 599, 637, 660, 683, 745, 784, 855, 983, 991, 999, 1072, 1121, 1162, 1228, 1378, 1420, 1479, 1598, 1615, 1761
OFFSET
1,1
LINKS
MATHEMATICA
r=0; n=f=2; Table[While[(k = Floor[f/n^Floor@Log[n, f]]) <= r, f *= ++n]; r = k; n, {50}] (* Giovanni Resta, Jan 28 2013 *)
CROSSREFS
Sequence in context: A270812 A066821 A108568 * A256408 A256404 A064386
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 25 2013
EXTENSIONS
a(41)-a(50) from Giovanni Resta, Jan 28 2013
STATUS
approved