cp's OEIS Frontend

A241673 Where powers of 2 occur in A229037.

%I A241673 #8 Apr 28 2014 02:18:31
%S A241673 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,24,28,29,30,31,
%T A241673 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,51,56,57,64,69,82,
%U A241673 83,84,85,86,87,88,89,90,91,92,93,96,97,98,99,100,101
%N A241673 Where powers of 2 occur in A229037.
%C A241673 A209229(A229037(a(n))) = 1.
%H A241673 Reinhard Zumkeller, <a href="/A241673/b241673.txt">Table of n, a(n) for n = 1..1000</a>
%e A241673 .    n  |    a(n)  | A229037(a(n))=2^k |    k
%e A241673 . ------+----------+-------------------+------
%e A241673 .    1  |       1  |             1     |    0
%e A241673 .    3  |       3  |             2     |    1
%e A241673 .    8  |       8  |             4     |    2
%e A241673 .   22  |      24  |             8     |    3
%e A241673 .   92  |     196  |            16     |    4
%e A241673 .  139  |     387  |            32     |    5
%e A241673 .  155  |     516  |            64     |    6
%e A241673 .  250  |    1274  |           128     |    7
%e A241673 .  371  |    3590  |           256     |    8
%e A241673 .  560  |    9309  |           512     |    9
%e A241673 .  851  |   23654  |          1024     |   10 .
%o A241673 (Haskell)
%o A241673 a241673 n = a241673_list !! (n-1)
%o A241673 a241673_list = filter ((== 1) . a209229 . a229037) [1..]
%Y A241673 Cf. A236246 (subsequence).
%K A241673 nonn
%O A241673 1,2
%A A241673 _Reinhard Zumkeller_, Apr 26 2014