A029694 n-th bit in binary expansion of cube root of n.

1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0

Offset

1,1

Links

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

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/3 ], n+6 ], 2 ]// (#[ [ 1, n ] ])& ], 110 ]

Crossrefs

Sequence in context: A014069 A154388 A285136 * A171894 A284957 A357385

Adjacent sequences: A029691 A029692 A029693 * A029695 A029696 A029697

Keyword

nonn,base

Author

Olivier Gérard

Status

approved