|
%I #7 Mar 30 2012 17:30:36
%S 3,2,11,5,27,10,51,17,83,26,123,37,171,50,227,65,291,82,363,101,443,
%T 122,531,145,627,170,731,197,843,226,963,257,1091,290,1227,325,1371,
%U 362,1523,401,1683,442,1851,485,2027,530,2211,577,2403,626,2603,677
%N Duplicate of A013945.
%F G.f.: (x^5+3x^4-x^3+2x^2+2x+3)/(1-x^2)^3.
%e a(3) = 11 because the continued fraction for the square root of 11 is 3, {3, 6}.
%t a = Table[0, {70}]; Do[ b = First[ Last[ ContinuedFraction[ Sqrt[ n]]]]; If[ b < 71 && a[[b]] == 0, a[[b]] = n], {n, 2, 10^4} ]; a
%K dead
%O 1,1
%A _Robert G. Wilson v_, Nov 01 2001
|
