OFFSET
1,1
COMMENTS
Also indices of terms in A033676 that are not a power of 2.
Differs from A342082 in not having {24, 72, 80, 96, 112, ...}. - Hugo Pfoertner, Oct 15 2023
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A365408Q[n_]:=With[{d=Divisors[n]}, !IntegerQ[Log2[d[[Ceiling[Length[d]/2]]]]]];
Select[Range[200], A365408Q] (* Paolo Xausa, Oct 19 2023 *)
PROG
(Python)
from itertools import count, islice
from sympy import divisors
def A365408_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda i:(a:=(d:=divisors(i))[len(d)-1>>1])!=1<<a.bit_length()-1, count(max(startvalue, 1)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Oct 14 2023
STATUS
approved