A051505 a(n) = min { 2^n, floor(100/sqrt(n)) }.

2, 4, 8, 16, 32, 40, 37, 35, 33, 31, 30, 28, 27, 26, 25, 25, 24, 23, 22, 22, 21, 21, 20, 20, 20, 19, 19, 18, 18, 18, 17, 17, 17, 17, 16, 16, 16, 16, 16, 15, 15, 15, 15, 15, 14, 14, 14, 14, 14, 14, 14, 13, 13, 13, 13, 13, 13, 13, 13, 12, 12, 12, 12, 12

Offset

0,1

Links

Table of n, a(n) for n=0..63.

Mathematica

Table[Min[2^n, Floor[100/Sqrt[n]]], {n, 70}] (* Harvey P. Dale, Oct 31 2013 *)

Crossrefs

Sequence in context: A068535 A272034 A356382 * A353720 A371294 A133408

Adjacent sequences: A051502 A051503 A051504 * A051506 A051507 A051508

Keyword

nonn

Author

N. J. A. Sloane

Status

approved