A337811 Numbers k such that the number of distinct prime factors of 2^k - 1 is less than the corresponding count for 2^k + 1.

1, 5, 7, 13, 17, 19, 25, 26, 31, 34, 35, 37, 38, 41, 46, 49, 59, 61, 62, 65, 67, 77, 78, 83, 85, 89, 91, 93, 97, 98, 103, 107, 109, 118, 122, 123, 125, 127, 131, 133, 134, 137, 139, 143, 145, 147, 149, 153, 157, 170, 173, 175, 177, 185, 186, 189, 193, 194, 195

Offset: 1

Author

Hugo Pfoertner, Sep 23 2020

Keywords

• nonn

Crossrefs

Cf. A046799, A046800, A067886, A337810, A337812, A337813.

Programs

Mathematica

Select[Range[200],PrimeNu[2^#-1]Harvey P. Dale, Nov 04 2023 *)

PARI

for(n=1,200,if(omega(2^n-1)