A241673 Where powers of 2 occur in A229037.

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, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 51, 56, 57, 64, 69, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 96, 97, 98, 99, 100, 101

Offset: 1

Author

Reinhard Zumkeller, Apr 26 2014

Keywords

• nonn

Comments

A209229(A229037(a(n))) = 1.

Examples

			.    n  |    a(n)  | A229037(a(n))=2^k |    k
. ------+----------+-------------------+------
.    1  |       1  |             1     |    0
.    3  |       3  |             2     |    1
.    8  |       8  |             4     |    2
.   22  |      24  |             8     |    3
.   92  |     196  |            16     |    4
.  139  |     387  |            32     |    5
.  155  |     516  |            64     |    6
.  250  |    1274  |           128     |    7
.  371  |    3590  |           256     |    8
.  560  |    9309  |           512     |    9
.  851  |   23654  |          1024     |   10 .
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A236246 (subsequence).

Programs

Haskell

a241673 n = a241673_list !! (n-1)
a241673_list = filter ((== 1) . a209229 . a229037) [1..]