A065014 Duplicate of A013945.
3, 2, 11, 5, 27, 10, 51, 17, 83, 26, 123, 37, 171, 50, 227, 65, 291, 82, 363, 101, 443, 122, 531, 145, 627, 170, 731, 197, 843, 226, 963, 257, 1091, 290, 1227, 325, 1371, 362, 1523, 401, 1683, 442, 1851, 485, 2027, 530, 2211, 577, 2403, 626, 2603, 677
Offset: 1
Keywords
Examples
a(3) = 11 because the continued fraction for the square root of 11 is 3, {3, 6}.
Programs
-
Mathematica
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
Formula
G.f.: (x^5+3x^4-x^3+2x^2+2x+3)/(1-x^2)^3.