|
| |
|
|
A031617
|
|
Numbers n such that continued fraction for sqrt(n) has odd period and central terms 29.
|
|
0
| |
|
|
5501, 10453, 17770, 18037, 26365, 27017, 36269, 49066, 63793, 76537, 81017, 112754, 114773, 116129, 132394, 133121, 134581, 135314, 136049, 136786, 138266, 139009, 139754, 140501, 154393, 159133, 180617, 185741, 187465, 203461, 204362
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| opct29Q[n_]:=Module[{cf=ContinuedFraction[Sqrt[n]][[2]], len}, len= Length[ cf]; OddQ[len]&&cf[[Floor[len/2]]]==29]; Select[Range[205000], !IntegerQ[Sqrt[#]]&&opct29Q[#]&] (* From Harvey P. Dale, Dec 14 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A203791 A137816 A138760 * A045132 A096702 A165443
Adjacent sequences: A031614 A031615 A031616 * A031618 A031619 A031620
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
EXTENSIONS
| Corrected by Harvey P. Dale, Dec 14 2011
|
| |
|
|
