A141324 Sum of digits of A002452(n).

0, 1, 1, 10, 10, 19, 19, 37, 28, 37, 37, 37, 37, 46, 73, 55, 55, 64, 73, 73, 64, 82, 73, 109, 100, 118, 91, 109, 109, 118, 127, 127, 109, 136, 145, 127, 145, 136, 145, 163, 145, 154, 172, 190, 127, 181, 199, 208, 217, 190, 181, 235, 235, 253, 226, 217, 226, 235, 262

Offset: 0

Author

Paul Curtz, Aug 03 2008

Keywords

• nonn
• base

Crossrefs

Cf. A017173.

Programs

Maple

A002452 := proc(n) (9^n-1)/8 ; end: A007953 := proc(n) local i ; add(i,i=convert(n,base,10)) ; end: A141324 := proc(n) A007953(A002452(n)) ; end: for n from 0 to 80 do printf("%d,",A141324(n)) ; od: # R. J. Mathar, Aug 09 2008

Mathematica

Total[IntegerDigits[#]]&/@LinearRecurrence[{10,-9},{0,1},60] (* Harvey P. Dale, Sep 23 2018 *)

Formula

a(n)=A007953(A002452(n)).

Extensions

Extended by R. J. Mathar, Aug 09 2008