This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A292079 #42 Apr 01 2021 09:43:53
%S A292079 4,6,8,9,12,20,24,27,33,49,69,77,145,425,447,567
%N A292079 Composite numbers m such that 2^m - 1 has a single prime factor of the form k*m + 1.
%C A292079 From _Thomas Ordowski_, Sep 12 2017: (Start)
%C A292079 Composite numbers m such that A182590(m) = 1.
%C A292079 Problem: are there infinitely many such numbers?
%C A292079 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)
%C A292079 After 567, the only numbers < 1200 that may possibly be terms are 961, 1037, 1111, and 1115. - _Jon E. Schoenfield_, Dec 03 2017
%C A292079 a(17) > 1206. - _Amiram Eldar_, Apr 01 2021
%t A292079 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 *)
%o A292079 (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, ", ")));
%Y A292079 Cf. A001265, A002326, A182590.
%K A292079 nonn,more
%O A292079 1,1
%A A292079 _Michel Marcus_, Sep 12 2017
%E A292079 Erroneous terms 841 and 1127 and possible (but unconfirmed, and not necessarily next) term 1037 deleted by _Jon E. Schoenfield_, Dec 03 2017