OFFSET
1,3
MATHEMATICA
Table[Count[IntegerDigits[Total[IntegerDigits[n^n]], 2], 1], {n, 110}] (* Harvey P. Dale, Oct 24 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 29 2004
STATUS
approved