OFFSET
1,1
MATHEMATICA
Select[ Flatten[ Table[2^i + 2^j + 2^k - 1, {i, 3, 10}, {j, 2, i - 1}, {k, j - 1}]], PrimeQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 28 2015
STATUS
approved