A221708 Records in A216377.

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

Giovanni Resta, Table of n, a(n) for n = 1..150

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

Cf. A216377, A221707.

Sequence in context: A270812 A066821 A108568 * A256408 A256404 A064386

Adjacent sequences: A221705 A221706 A221707 * A221709 A221710 A221711

Keyword

nonn

Author

N. J. A. Sloane, Jan 25 2013

Extensions

a(41)-a(50) from Giovanni Resta, Jan 28 2013

Status

approved