|
%I #9 Dec 18 2019 14:30:23
%S 3,6,5,7,14,10,11,15,28,9,12,18,20,19,29,22,21,23,30,13,24,17,25,38,
%T 40,34,41,39,31,60,36,37,44,72,35,56,68,73,76,74,42,43,46,45,27,26,84,
%U 75,47,57,77,88,69,89,78,52,79,62,80,33,48,66,81,70,82,148
%N The binary representation of a(n) is the concatenation of that of A330524(n) and of A330524(n+1).
%C Does this sequence contain every positive number except powers of 2?
%H Rémy Sigrist, <a href="/A330525/b330525.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A163621(A330524(n), A330524(n+1)).
%o (PARI) s=0; v=1; for (n=1, 66, for (w=1, oo, if (!bittest(s, k=v*2^#binary(w)+w), print1 (k", "); s+=2^k; v=w; break)))
%Y Cf. A163621, A330524.
%K nonn,base
%O 1,1
%A _Rémy Sigrist_, Dec 17 2019
|
