

A048962


Table in which nth row lists digits in periodic part of decimal expansion of 1/n.


4



0, 0, 3, 0, 0, 6, 1, 4, 2, 8, 5, 7, 0, 1, 0, 0, 9, 3, 0, 7, 6, 9, 2, 3, 7, 1, 4, 2, 8, 5, 6, 0, 0, 5, 8, 8, 2, 3, 5, 2, 9, 4, 1, 1, 7, 6, 4, 7, 5, 0, 5, 2, 6, 3, 1, 5, 7, 8, 9, 4, 7, 3, 6, 8, 4, 2, 1, 0, 0, 4, 7, 6, 1, 9, 4, 5, 0, 4, 3, 4, 7, 8, 2, 6, 0, 8, 6, 9, 5, 6, 5, 2, 1, 7, 3, 9, 1, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

The length of row n is A007732(n).  T. D. Noe, May 14 2008
The convention is that the earliest period is displayed.  T. D. Noe, May 14 2008


REFERENCES

Conway and Guy, The Book of Numbers, p. 160


LINKS

T. D. Noe, Rows n=1..100, flattened
Index entries for sequences related to decimal expansion of 1/n


EXAMPLE

1/1=1. > 0; 1/2=.5 >0; 1/3=.3333... > 3; 1/4=.25 > 0; 1/5=.2 >0; 1/6=.1666... > 6; 1/7=.142857... > 1 4 2 8 5 7; etc.
0; 0; 3; 0; 0; 6; 1,4,2,8,5,7; 0; 1; 0; 0,9; 3; 0,7,6,9,2,3; 7,1,4,2,8,5; 6; 0; ...


MATHEMATICA

nmax = 50;
row[n_] := Switch[FactorInteger[n], {{2, _}}  {{5, _}}  {{2, _}, {5, _}}, {0}, _, rd = RealDigits[N[1 + 1/n, 10 nmax]]; FindTransientRepeat[rd[[1]] // Rest, 2][[2]]];
row /@ Range[nmax] // Flatten (* JeanFrançois Alcover, Dec 04 2019 *)


CROSSREFS

Cf. A048997, A048963.
Sequence in context: A332442 A061480 A220692 * A135028 A325006 A325014
Adjacent sequences: A048959 A048960 A048961 * A048963 A048964 A048965


KEYWORD

nonn,base,easy,tabf,nice


AUTHOR

N. J. A. Sloane


STATUS

approved



