OFFSET
1,3
COMMENTS
LINKS
Bert Dobbelaere, Table of n, a(n) for n = 1..80, (terms 41..64 from Donovan Johnson, 65..70 from Hugo Pfoertner, missing 68 and 72..80 from Bert Dobbelaere).
Bernt Lindström, On the binary digits of a power, Journal of Number Theory, Volume 65, Issue 2, August 1997, Pages 321-324.
FORMULA
Lindström shows that lim sup wt(m^2)/log_2 m = 2.
PROG
(Haskell)
a230097 n = a230097_list !! (n-1)
a230097_list = 0 : f 0 0 where
f i m = if v > m then i : f (i + 1) v else f (i + 1) m
where v = a159918 i
-- Reinhard Zumkeller, Oct 12 2013
(Python 3.10+)
from itertools import count, islice
def A230097_gen(): # generator of terms
c = -1
for n in count(0):
if (m := (n**2).bit_count())>c:
yield n
c = m
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 11 2013
EXTENSIONS
a(19)-a(40) from Reinhard Zumkeller, Oct 12 2013
STATUS
approved