A366379 - OEIS

%I #7 Oct 22 2023 15:19:10

%S 11,13,22,26,35,37,41,43,44,47,49,52,53,55,59,61,70,74,82,86,88,94,98,

%T 104,106,110,118,122,131,133,137,139,140,143,145,148,149,151,155,157,

%U 161,163,164,167,169,172,173,175,176,179,181,185,187,188,191,193,196,197,199,203,205,208,209,211,212,215,217,220

%N Numbers k such that A057889(k) != k (mod 3), where A057889 is the bijective bit-reverse.

%o (PARI)

%o A030101(n) = if(n<1,0,subst(Polrev(binary(n)),x,2));

%o A057889(n) = if(!n,n,A030101(n/(2^valuation(n,2))) * (2^valuation(n, 2)));

%o isA366379(n) = (!!((A057889(n)-n)%3));

%Y Cf. A030101, A057889, A366378 (complement), A366389.

%Y Subsequence of A001651, and of A057891.

%K nonn

%O 1,1

%A _Antti Karttunen_, Oct 22 2023