A048962 - OEIS

A048962

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

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.

Triangle begins:

1,4,2,8,5,7;

0,9;

0,7,6,9,2,3;

7,1,4,2,8,5;

...

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 (* Jean-Franç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