|
%I #2 Mar 30 2012 17:30:36
%S 10,38,84,103,148,173,230,261,294,330,367,406,448,491,536,583,584,633,
%T 684,737,738,793,850,909,910,970,971,1034,1099,1100,1166,1167,1236,
%U 1307,1308,1380,1381,1455,1456,1533,1534,1612,1613,1693,1694,1777,1778
%N Integers for which the periodic part of the continued fraction for the square root of n begins with 6.
%e The continued fraction for the square root of 84 is 9, {6, 18}.
%t Select[ Range[1500], First[ Last[ ContinuedFraction[ Sqrt[ # ]]]] == 6 & ]
%K cofr,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|
