|
%I #10 Feb 24 2019 21:09:03
%S 1,2,4,8,11,13,16,19,22,23,25,26,29,32,37,38,41,43,44,46,47,50,52,53,
%T 55,58,59,61,64,67,71,74,76,77,79,82,83,86,88,89,91,92,94,97,100,101,
%U 103,104,106,109,110,113,115,116,118,121,122,128,131,134,137,139,142,143
%N Positive integers k that are coprime to the value of the reversal of k's representation in binary.
%C By "reversal" of k's representation in binary, it is meant: write k in binary, reverse the order of its digits, and read the result as a binary value.
%p A030101 := proc(n) local bdgs; bdgs := convert(n,base,2) ; add( op(-i,bdgs)*2^(i-1), i=1..nops(bdgs)) ; end: A161607 := proc(n) option remember ; local a; if n = 1 then 1; else for a from procname(n-1)+1 do if gcd(A030101(a),a) = 1 then RETURN(a) ; fi; od: fi; end: seq(A161607(n),n=1..100) ; # _R. J. Mathar_, Jul 04 2009
%Y Cf. A030101.
%K base,nonn
%O 1,2
%A _Leroy Quet_, Jun 14 2009
%E More terms from _R. J. Mathar_, Jul 04 2009
|
