OFFSET
4,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 4..10000
MAPLE
f:= proc(n) convert(convert(2^n-11, base, 10), `+`)-n end proc:
map(f, [$4..100]); # Robert Israel, Nov 17 2019
MATHEMATICA
Table[Total[IntegerDigits[2^n-11]]-n, {n, 4, 90}] (* Harvey P. Dale, Oct 13 2024 *)
CROSSREFS
KEYWORD
sign,base
AUTHOR
N. J. A. Sloane, Nov 16 2019
STATUS
approved