A029693 n-th binary digit in fractional part of cube root of n.

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

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, #[ [ 2 ] ]+n ] ])& ], 110 ]

Crossrefs

Sequence in context: A049240 A285978 A138712 * A200263 A051067 A288858

Adjacent sequences: A029690 A029691 A029692 * A029694 A029695 A029696

Keyword

nonn,base

Author

Olivier Gérard

Status

approved