|
|
A013946
|
|
Least d for which the number with continued fraction [n,n,n,n...] is in Q(sqrt(d)).
|
|
6
|
|
|
5, 2, 13, 5, 29, 10, 53, 17, 85, 26, 5, 37, 173, 2, 229, 65, 293, 82, 365, 101, 445, 122, 533, 145, 629, 170, 733, 197, 5, 226, 965, 257, 1093, 290, 1229, 13, 1373, 362, 61, 401, 1685, 442, 1853, 485, 2029, 530, 2213, 577, 2405, 626, 2605, 677, 2813, 730, 3029, 785, 3253
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
z = 5000; u = Table[{p, e} = Transpose[FactorInteger[n]];
|
|
PROG
|
|
|
CROSSREFS
|
a(n) = 2 is equivalent to "n is in the sequence A077444", a(n) = 5 is equivalent to "n is in the sequence A002878".
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|