OFFSET
1,1
MATHEMATICA
Select[Flatten[Table[{2^k - 2, 2^k - 1}, {k, 100}]], PrimeOmega[#] == 2 &] (* Alonso del Arte, May 26 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, May 23 2014
EXTENSIONS
More terms from Alonso del Arte, May 26 2014
STATUS
approved