1,2

A099244(a(n)) = 1; complement of A099248.

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

Index entries for sequences related to binary expansion of n

Select[Range[150], CoprimeQ[IntegerLength[#, 2], DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Sep 22 2012 *)

(Haskell)

a099247 n = a099247_list !! (n-1)

a099247_list = filter ((== 1) . a099244) [1..]

-- Reinhard Zumkeller, Oct 10 2013

Cf. A099249, A070939, A000120, A007088.

Sequence in context: A082851 A091207 A284525 * A192583 A240064 A007192

Adjacent sequences: A099244 A099245 A099246 * A099248 A099249 A099250

nonn

Reinhard Zumkeller, Oct 08 2004

Definition clarified by Harvey P. Dale, Sep 22 2012

approved