login
A082409
Composite numbers k such that the continued fraction for k/m contains no 2 for any 1 <= m <= k.
2
529, 851, 1357, 2183, 2257, 2369, 3127, 3233, 3427, 3473, 3481, 3599, 4853, 4897, 5063, 5069, 5129, 5143, 5221, 5267, 5459, 5513, 6527, 6889, 6893, 7493, 7747, 7807, 7981, 8003, 8083, 8201, 8257, 8357, 8399, 8479, 9211
OFFSET
1,1
COMMENTS
Composites in A055114.
LINKS
MATHEMATICA
q[n_] := CompositeQ[n] && AllTrue[Range[1, n - 1], Max[ContinuedFraction[#/n]] > 2 &]; Select[Range[2, 3000], q] (* Amiram Eldar, Jun 25 2022 *)
CROSSREFS
Cf. A055114.
Sequence in context: A181414 A020289 A274932 * A066742 A067475 A052074
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 23 2003
STATUS
approved