|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
dead
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|