The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A292079 Composite numbers m such that 2^m - 1 has a single prime factor of the form k*m + 1. 1
 4, 6, 8, 9, 12, 20, 24, 27, 33, 49, 69, 77, 145, 425, 447, 567 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS From Thomas Ordowski, Sep 12 2017: (Start) Composite numbers m such that A182590(m) = 1. Problem: are there infinitely many such numbers? Note that this single prime factor p is the only primitive prime factor of 2^m - 1 for all such m except 6, i.e., the multiplicative order of 2 modulo p is m. (End) After 567, the only numbers < 1200 that may possibly be terms are 961, 1037, 1111, and 1115. - Jon E. Schoenfield, Dec 03 2017 LINKS MATHEMATICA Select[Range@ 150, And[CompositeQ@ #, Function[{m, p}, Total@ Boole@ Map[Divisible[# - 1, m] &, p] == 1] @@ {#, FactorInteger[2^# - 1][[All, 1]]}] &] (* Michael De Vlieger, Dec 06 2017 *) PROG (PARI) lista(nn) = forcomposite(n=1, nn, my(f = factor(2^n-1)); if (sum(k=1, #f~, ((f[k, 1]-1) % n)==0) == 1, print1(n, ", "))); CROSSREFS Cf. A001265, A002326, A182590. Sequence in context: A046760 A115684 A020201 * A161760 A213308 A067127 Adjacent sequences:  A292076 A292077 A292078 * A292080 A292081 A292082 KEYWORD nonn,more AUTHOR Michel Marcus, Sep 12 2017 EXTENSIONS Erroneous terms 841 and 1127 and possible (but unconfirmed, and not necessarily next) term 1037 deleted by Jon E. Schoenfield, Dec 03 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 29 17:03 EDT 2020. Contains 337432 sequences. (Running on oeis4.)