All but the least significant bit of a number.
In languages like C, this might be written as
Function:
(defun logcdr$inline (i) (declare (xargs :guard (integerp i))) (let ((__function__ 'logcdr)) (declare (ignorable __function__)) (mbe :logic (ifloor i 2) :exec (the integer (ash (the integer i) -1)))))
Theorem:
(defthm logcdr-type (b* ((int (logcdr$inline i))) (integerp int)) :rule-classes :type-prescription)