%I #16 Jun 26 2022 05:52:45
%S 529,851,1357,2183,2257,2369,3127,3233,3427,3473,3481,3599,4853,4897,
%T 5063,5069,5129,5143,5221,5267,5459,5513,6527,6889,6893,7493,7747,
%U 7807,7981,8003,8083,8201,8257,8357,8399,8479,9211
%N Composite numbers k such that the continued fraction for k/m contains no 2 for any 1 <= m <= k.
%C Composites in A055114.
%H Amiram Eldar, <a href="/A082409/b082409.txt">Table of n, a(n) for n = 1..1000</a>
%t q[n_] := CompositeQ[n] && AllTrue[Range[1, n - 1], Max[ContinuedFraction[#/n]] > 2 &]; Select[Range[2, 3000], q] (* _Amiram Eldar_, Jun 25 2022 *)
%Y Cf. A055114.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Apr 23 2003
|