A023975 First bit in fractional part of binary expansion of 8th root of n.

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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset

1,1

Links

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

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/8 ], 10 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
Table[RealDigits[Surd[n, 8], 2, 50][[1, 2]], {n, 110}] (* Harvey P. Dale, Jul 22 2020 *)

Crossrefs

Sequence in context: A354344 A085974 A011739 * A305821 A305892 A324870

Adjacent sequences: A023972 A023973 A023974 * A023976 A023977 A023978

Keyword

nonn,base

Author

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

Status

approved