Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #16 Apr 16 2020 18:49:35
%S 3,5,6,10,12,17,20,24,34,40,48,68,80,96,136,160,192,257,272,320,384,
%T 514,544,640,768,1028,1088,1280,1536,2056,2176,2560,3072,4112,4352,
%U 5120,6144,8224,8704,10240,12288,16448,17408,20480,24576,32896,34816,40960,49152,65537,65792,69632,81920,98304,131074,131584,139264
%N Numbers of the form q*(2^k), where q is one of the Fermat primes and k >= 0; Numbers n for which A329697(n) == 1.
%C Numbers k that themselves are not powers of two, but for which A171462(k) = k-A052126(k) is [a power of 2].
%C Numbers k such that A000265(k) is in A019434.
%C Squares of these numbers can be found (as a subset) in A334102, and the cubes (as a subset) in A334103.
%F For all n, A000120(a(n)) = 2.
%o (PARI)
%o A000265(n) = (n>>valuation(n,2));
%o isA019434(n) = ((n>2)&&isprime(n)&&!bitand(n-2,n-1));
%o isA334101(n) = isA019434(A000265(n));
%o (PARI)
%o A052126(n) = if(1==n,n,n/vecmax(factor(n)[, 1]));
%o A209229(n) = (n && !bitand(n,n-1));
%o isA334101(n) = ((!A209229(n))&&A209229(n-A052126(n)));
%Y Row 1 of A334100.
%Y Cf. A000120, A000265, A052126, A171462, A209229, A329697, A334102, A334103.
%Y Cf. A019434 (primes present), A007283, A020714, A110287 (other subsequences).
%Y Subsequence of A018900.
%K nonn
%O 1,1
%A _Antti Karttunen_, Apr 14 2020