Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

1,1

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

cf61Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[ s] [[2]], 1]]==61]; Select[Range[200000], cf61Q] (* Harvey P. Dale, Feb 01 2015 *)

Sequence in context: A076166 A168665 A283027 * A057680 A157796 A186848

Adjacent sequences: A031826 A031827 A031828 * A031830 A031831 A031832

nonn

David W. Wilson

approved