OFFSET
1,3
COMMENTS
REFERENCES
Conway and Guy, The Book of Numbers, p. 160
LINKS
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:
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 (* Jean-François Alcover, Dec 04 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy,tabf,nice
AUTHOR
STATUS
approved