A051503 a(n) = min { n, floor(100/n) }.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 9, 8, 7, 7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset

1,2

Links

Table of n, a(n) for n=1..93.

Maple

Digits := 40; [seq(floor(min(n, 100/n)), n=1..100)];

Mathematica

Table[Min[n, Floor[100/n]], {n, 100}] (* Harvey P. Dale, Jan 09 2021 *)

Crossrefs

Sequence in context: A355675 A073835 A334387 * A331375 A179622 A367617

Adjacent sequences: A051500 A051501 A051502 * A051504 A051505 A051506

Keyword

nonn

Author

N. J. A. Sloane

Status

approved