[seqfan] Re: Using "Quiet" in Mathematica

[zak seidov]

What I used for 1000-term bA031795 is almost exactly what Olivier suggests:
cf27Q[n_]:=Module[{cf=ContinuedFraction[Sqrt[n]]},Length[cf]>1&&Count[cf[[2]],1]==27];
 
 
From: Olivier Gerard olivier.gerard at gmail.com
<...>
>Another way is to write something this way:
>
>Table[If[Length[#] > 1, #[[2]], {}] &@ContinuedFraction[Sqrt[n]], {n, 10}]
>
>
>Olivier
>
>_______________________________________________
>