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

Author

N. J. A. Sloane, Jan 25 2013

Keywords

• nonn

Links

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

Crossrefs

Cf. A216377, A221707.

Programs

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 *)

Extensions

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