A064503 - OEIS

%I #7 Jul 10 2022 13:23:11

%S 4,8,22,26,32,50,56,70,76,82,94,100,112,118,128,134,176,186,196,266,

%T 274,280,296,342,352,358,364,372,386,392,400,406,426,454,472,484,496,

%U 560,580,598,638,656,666,682,696,704,714,724,738,750,772,776,800,832

%N Bisection of A064394.

%o (Python 3.10+)

%o from itertools import count, islice

%o from sympy import prevprime

%o def A064503_gen(): # generator of terms

%o     return islice(filter(lambda n:n-n.bit_count()==prevprime(n),count(3)),0,None,2)

%o A064503_list = list(islice(A064503_gen(),30)) # _Chai Wah Wu_, Jul 10 2022

%K nonn

%O 1,1

%A _Vladeta Jovovic_, Oct 05 2001