A337812 Numbers k such that the number of prime factors, counted with multiplicity, of 2^k - 1 is greater than the corresponding count for 2^k + 1.

4, 6, 8, 12, 16, 18, 20, 22, 24, 28, 30, 32, 36, 40, 42, 43, 44, 48, 52, 54, 56, 58, 60, 64, 66, 68, 70, 72, 76, 79, 80, 84, 87, 88, 90, 92, 94, 96, 100, 102, 104, 106, 108, 110, 112, 114, 116, 117, 119, 120, 124, 126, 128, 132, 136, 138, 140, 144, 146, 148, 151

Offset: 1

Author

Hugo Pfoertner, Sep 23 2020

Keywords

• nonn

Crossrefs

Cf. A046051, A054992, A309942, A337810, A337811, A337813.

Programs

Mathematica

Select[Range[152],PrimeOmega[2^#-1]>PrimeOmega[2^#+1]&] (* Harvey P. Dale, Dec 31 2022 *)

PARI

for(n=1,160,if(bigomega(2^n-1)>bigomega(2^n+1),print1(n,", ")))