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,4

Links

Table of n, a(n) for n=0..58.

Formula

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

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 *)

Crossrefs

Cf. A017173.

Sequence in context: A047879 A344336 A168416 * A097041 A331057 A205724

Adjacent sequences: A141321 A141322 A141323 * A141325 A141326 A141327

Keyword

nonn,base

Author

Paul Curtz, Aug 03 2008

Extensions

Extended by R. J. Mathar, Aug 09 2008

Status

approved