%I A046107
%S A046107 3,11,37,101,41,271,7,13,239,4649,73,137,333667,9091,21649,513239,9901,
%T A046107 53,79,265371653,909091,31,2906161,17,5882353,2071723,5363222357,19,
%U A046107 52579,1111111111111111111,3541,27961,43,1933,10838689,23,4093
%N A046107 Triangle of prime numbers in which n-th row lists all primes p such that 
               1/p has decimal period n, n >= 1.
%C A046107 The number of numbers in each row n is given by A112505(n).
%H A046107 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               DecimalExpansion.html">Link to a section of The World of Mathematics.</
               a>
%H A046107 <a href="Sindx_1.html#1overn">Index entries for sequences related to 
               decimal expansion of 1/n</a>
%e A046107 3; 11; 37; 101; 41,271; 7,13; ...
%t A046107 pp={}; Do[f=Transpose[FactorInteger[10^n-1]][[1]]; p=Complement[f, pp]; 
               pp=Union[pp, p]; Print[p], {n, 66}] - T. D. Noe (noe(AT)sspectra.com), 
               Sep 08 2005
%Y A046107 Cf. A007138.
%Y A046107 Sequence in context: A108544 A095088 A007138 this_sequence A061075 A005422 
               A040017
%Y A046107 Adjacent sequences: A046104 A046105 A046106 this_sequence A046108 A046109 
               A046110
%K A046107 nonn,tabf
%O A046107 1,1
%A A046107 Eric Weisstein (eric(AT)weisstein.com)