OFFSET
1,1
COMMENTS
Numbers k such that omega(2^k+1) = omega(2^k-1).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..141
MATHEMATICA
sndpQ[n_]:=Module[{c=2^n}, PrimeNu[c+1]==PrimeNu[c-1]]; Select[Range[ 250], sndpQ] (* Harvey P. Dale, Feb 04 2016 *)
PROG
(PARI) isok(k) = omega(2^k-1) == omega(2^k+1); \\ Michel Marcus, Feb 13 2020
(Magma) [k: k in [2..307] | #PrimeDivisors(2^k-1) eq #PrimeDivisors(2^k+1) ]; // Marius A. Burtea, Feb 13 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Mar 02 2002
EXTENSIONS
More terms from Rick L. Shepherd, May 14 2002
More terms from Amiram Eldar, Feb 13 2020
STATUS
approved