A023970 First bit in fractional part of binary expansion of cube root of n.

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

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

f:= n -> floor(2*surd(n, 3)) mod 2:
map(f, [$1..200]); # Robert Israel, Mar 02 2026

Mathematica

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

Crossrefs

Sequence in context: A080584 A316824 A118953 * A072626 A191153 A011659

Adjacent sequences: A023967 A023968 A023969 * A023971 A023972 A023973

Keyword

nonn,base

Author

N. J. A. Sloane, Olivier Gérard

Status

approved