OFFSET
0,3
FORMULA
MAPLE
read("transforms") ;
A000326 := proc(n) n*(3*n-1)/2 ; end:
MATHEMATICA
Clear[lst, n, s, f] f[n_]:=Plus@@IntegerDigits[n, 2]; s=0; lst={s}; Do[s+=n; AppendTo[lst, f[s]], {n, 1, 6!, 3}]; lst
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 11 2009
EXTENSIONS
Definition shortened, offset set to zero by R. J. Mathar, Oct 14 2009
STATUS
approved