OFFSET
1,3
COMMENTS
LINKS
FORMULA
Other identities:
For all n >= 2 and all k >= 0, a(n^k) = k*a(n).
PROG
(PARI)
A005187(n) = { my(s=n); while(n>>=1, s+=n); s; }; \\ This function from Charles R Greathouse IV
(Scheme)
;; Alternatively:
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 09 2017
EXTENSIONS
Definition simplified by Antti Karttunen, Feb 05 2020
STATUS
approved