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