A023960 n-th bit in binary expansion of n-th root of n.

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

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/n ], n+6 ], 2 ]// (#[ [ 1, n ] ])& ], 110 ]
With[{nn=110}, Table[RealDigits[Surd[n, n], 2, nn][[1, n]], {n, nn}]] (* Harvey P. Dale, May 01 2022 *)

Crossrefs

Sequence in context: A004539 A354805 A294878 * A129686 A104974 A266719

Adjacent sequences: A023957 A023958 A023959 * A023961 A023962 A023963

Keyword

nonn,base

Author

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

Status

approved