OFFSET
0,1
COMMENTS
a(n)=d(n) with n^n = Sum(d(k)*2^k: 0<=d(k)<2, k>=0).
LINKS
Eric Weisstein's World of Mathematics, Binary
FORMULA
a(n) = floor(n^n / 2^n) mod 2.
EXAMPLE
n=5, 5^5=3125 -> '110000110101', '1100001-----': a(5)=1.
MATHEMATICA
Join[{1, 0}, Table[IntegerDigits[n^n, 2][[-n-1]], {n, 2, 110}]] (* Harvey P. Dale, Oct 14 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 20 2003
EXTENSIONS
Definition clarified by Harvey P. Dale, Oct 14 2021
STATUS
approved