OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is 1 (Cooper and Kennedy, 1989). - Amiram Eldar, Jul 10 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Curtis N. Cooper and Robert E. Kennedy, Chebyshev's inequality and natural density, Amer. Math. Monthly, Vol. 96, No. 2 (1989), pp. 118-124.
FORMULA
A112248(a(n)) > 0.
MAPLE
seq(op(select(t -> t mod d > 0, [$2^d .. 2^(d+1)-1])), d=1..6); # Robert Israel, Aug 27 2020
PROG
(Python)
def A112250(n):
def f(x):
c, l, a = n+1, x.bit_length(), 2
for i in range(1, l-1):
c -= (a-1)//i
a <<= 1
c += (a-1)//i
if l>1:
c += x//(l-1)-(a-1)//(l-1)
return c
m, k = n, f(n)
while m != k: m, k = k, f(k)
return m # Chai Wah Wu, Jul 02 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 30 2005
EXTENSIONS
Name changed by Robert Israel, Aug 27 2020
STATUS
approved