login
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, 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
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
KEYWORD
nonn,base
STATUS
approved