%I A130272
%S A130272 2,3,7,13,19,31,43,61,103,109,139,151,181,211,331,421,541,571,631,751,
%T A130272 919,1291,1381,1549,1579,1621,1759,1831,2011,2311,2671,3019,3469,3691,
%U A130272 3931,4909,4951,4999,5119,6211,6451,6679,8269,8719,8779,8941,9739,9949
%N A130272 Primes p for which the period of the continued fraction of sqrt(p) increases.
%H A130272 T. D. Noe, <a href="b130272.txt">Table of n, a(n) for n=1..200</a>
%F A130272 Where records occur in A054269.
%t A130272 mx=0; n=0; t=Table[n++; While[p=Prime[n]; len=Length[Last[ContinuedFraction[Sqrt[p]]]]; 
               len<=mx, n++ ]; mx=len; p, {50}]
%Y A130272 Cf. A003285, A013645.
%Y A130272 Sequence in context: A045331 A053613 A013645 this_sequence A038940 A019383 
               A156300
%Y A130272 Adjacent sequences: A130269 A130270 A130271 this_sequence A130273 A130274 
               A130275
%K A130272 nonn
%O A130272 1,1
%A A130272 T. D. Noe (noe(AT)sspectra.com), May 19 2007