|
%I #20 Jan 09 2023 02:25:08
%S 0,5,7,15,13,29,25,37,38,43,42,67,60,67,60,85,73,77,71,79,95,107,106,
%T 100,95,120,95,137,143,146,138,140,147,166,172,163,172,177,180,193,
%U 158,174,171,184,177,188,188,223,212,241,213,198,243,229,236,245,278,281,305,304
%N Sum of digits after the decimal point in the decimal expansion of (3/2)^n.
%C Some terms appear more than once, 60 being the first. - _Robert G. Wilson v_, Mar 10 2015
%H Harvey P. Dale, <a href="/A170827/b170827.txt">Table of n, a(n) for n = 0..1000</a>
%e 1.0
%e 1.5
%e 2.25
%e 3.375
%e 5.0625
%e 7.59375
%e 11.390625
%e 17.0859375
%e 25.62890625
%t td[n_]:=Module[{rd=RealDigits[(3/2)^n]},Total[Drop[rd[[1]], rd[[2]]]]]; Array[td,60,0] (* _Harvey P. Dale_, Dec 13 2011 *)
%o (PARI) a(n) = sumdigits(lift(Mod(15,10^n)^n)) \\ _Jianing Song_, Sep 28 2022
%Y Cf. A002379, A170828.
%K nonn,base
%O 0,2
%A _Michel Lagneau_, Dec 28 2009
%E Edited by _N. J. A. Sloane_, Dec 28 2009
|
