STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Select[Range@ 160, And[AllTrue[2^#2 - 1, SquareFreeQ], ! SquareFreeQ[2^First@ #1 - 1]] & @@ TakeDrop[Divisors@ #, -1] &] (* Michael De Vlieger, Jul 07 2019 *)
proposed
editing
editing
proposed
Comment from _From _Daniel Suteu_, Jul 03 2019: (Start)
proposed
editing
editing
proposed
a(15) >= 1207. - Max Alekseyev, Sep 28 2015
Comment from Daniel Suteu, Jul 03 2019: (Start)
The following numbers are also in the sequence: {1755, 2265, 2485, 2756, 3081, 3164, 4112, 6757, 8251, 13861, 18533}.
Probably, the following numbers are also terms: {3422, 5253, 6806, 8164, 9316, 11342, 12550, 15025, 15026, 17030, 17404, 17468, 18145, 19670, 19701, 22052}. (End)
approved
editing
proposed
approved
editing
proposed