A133249 Location of ones in the binary representation of Chaitan's Omega: If[A124027(n)==0, then n.

7, 14, 20, 21, 25, 30, 31, 33, 37, 38, 39, 40, 41, 42, 45, 47, 48, 49, 51, 52, 53, 55, 60

Offset

1,1

Links

Table of n, a(n) for n=1..23.

Formula

a(n) = If[A124027(m)==0, then (m)

Mathematica

(*A079365*); c = {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0}; Flatten[Table[If[c[[n]] == 1, n, {}], {n, 1, Length[c]}]]

Crossrefs

Cf. A079365, A124027.

Sequence in context: A257584 A035404 A003863 * A246393 A246305 A308015

Adjacent sequences: A133246 A133247 A133248 * A133250 A133251 A133252

Keyword

nonn

Author

Roger L. Bagula, Oct 14 2007

Status

approved