A170827 Sum of digits after the decimal point in the decimal expansion of (3/2)^n.

0, 5, 7, 15, 13, 29, 25, 37, 38, 43, 42, 67, 60, 67, 60, 85, 73, 77, 71, 79, 95, 107, 106, 100, 95, 120, 95, 137, 143, 146, 138, 140, 147, 166, 172, 163, 172, 177, 180, 193, 158, 174, 171, 184, 177, 188, 188, 223, 212, 241, 213, 198, 243, 229, 236, 245, 278, 281, 305, 304

Offset

0,2

Comments

Some terms appear more than once, 60 being the first. - Robert G. Wilson v, Mar 10 2015

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

1.0
1.5
2.25
3.375
5.0625
7.59375
11.390625
17.0859375
25.62890625

Mathematica

td[n_]:=Module[{rd=RealDigits[(3/2)^n]}, Total[Drop[rd[[1]], rd[[2]]]]]; Array[td, 60, 0] (* Harvey P. Dale, Dec 13 2011 *)

Prog

(PARI) a(n) = sumdigits(lift(Mod(15, 10^n)^n)) \\ Jianing Song, Sep 28 2022

Crossrefs

Cf. A002379, A170828.

Sequence in context: A314353 A043099 A030755 * A314354 A314355 A314356

Adjacent sequences: A170824 A170825 A170826 * A170828 A170829 A170830

Keyword

nonn,base

Author

Michel Lagneau, Dec 28 2009

Extensions

Edited by N. J. A. Sloane, Dec 28 2009

Status

approved