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

Author

Michel Lagneau, Dec 28 2009

Keywords

• nonn
• base

Comments

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

Examples

			1.0
1.5
2.25
3.375
5.0625
7.59375
11.390625
17.0859375
25.62890625
		

Links

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

Crossrefs

Cf. A002379, A170828.

Programs

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

PARI

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

Extensions

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