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,1

Links

Table of n, a(n) for n=1..52.

Formula

G.f.: (x^5+3x^4-x^3+2x^2+2x+3)/(1-x^2)^3.

Example

a(3) = 11 because the continued fraction for the square root of 11 is 3, {3, 6}.

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

Crossrefs

Sequence in context: A110326 A112061 A238398 * A013945 A072656 A330313

Adjacent sequences: A065011 A065012 A065013 * A065015 A065016 A065017

Keyword

dead

Author

Robert G. Wilson v, Nov 01 2001

Status

approved