A048997 Sum of digits in decimal expansion of 1/n up to the point where it repeats for the first time.
1, 5, 3, 7, 2, 7, 27, 8, 1, 1, 9, 11, 27, 27, 6, 13, 72, 5, 81, 5, 27, 9, 99, 11, 4, 27, 10, 30, 126, 3, 54, 11, 3, 72, 27, 9, 9, 81, 18, 7, 18, 27, 90, 11, 2, 99, 207, 13, 189, 2, 69, 28, 63, 14, 9, 35, 81, 126, 261, 7, 270, 54, 24, 19, 27, 6, 144, 73, 96, 27, 126, 12, 36, 9, 4
Offset: 1
Examples
1/1=1. -> 1; 1/2=.5 ->5; 1/3=.3333... -> 3; 1/4=.25 -> 7; 1/5=.2 ->2; 1/6=.1666... -> 7; 1/7=.142857... -> 27; etc.
Crossrefs
Cf. A048962.
Programs
-
Mathematica
Table[Total[Flatten[RealDigits[1/n][[1]]]], {n, 1, 75}] (* Jean-François Alcover, Mar 15 2011 *)
Extensions
More terms from Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Jun 17 2001