A364445 - OEIS

%I #8 Aug 01 2023 09:55:26

%S 1,4,6,9,12,13,17,19,21,25,26,28,32,33,35,37,39,41,43,45,46,50,52,53,

%T 56,59,60,63,64,66,68,70,72,74,77,79,80,82,84,86,88,90,92,93,96,98,99,

%U 102,105,106,108,112,113,116,118,119,120,123,124,127,129,132,133

%N Complement of A364444.

%C Compared to A364444, this sequence is what A363762 is to A077773.

%o (Python)

%o from itertools import count, islice

%o def A364445_gen(): # generator of terms

%o     a = 0

%o     for n in count(1):

%o         b = sum(1 for k in range(n**2+1,(n+1)**2) if (m:=(~k&k-1).bit_length())&1 or (k>>m)&7<7)

%o         yield from range(a+1,b)

%o         a = b

%o A364445_list = list(islice(A364445_gen(),20)) # _Chai Wah Wu_, Aug 01 2023

%Y Cf. A004215, A077773, A363762.

%K nonn

%O 1,2

%A _Hugo Pfoertner_, Aug 01 2023