OFFSET
1,1
COMMENTS
Odd terms: 179, 393, 493, 683, 785, 1083, 1161, 1181, 1545, ..., . - Robert G. Wilson v, Oct 25 2010
MATHEMATICA
fQ[n_] := Block[{k = 0, lmt = Floor@ Log[2, 3^n] +1, m = 3^n}, While[ k < lmt && !PrimeQ[m - 2^k], k++ ]; k == lmt]; Select[ Range@ 995, fQ] (* Robert G. Wilson v, Oct 25 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carl R. White, Oct 23 2010
EXTENSIONS
a(30) onwards from Robert G. Wilson v, Oct 25 2010
Name clarified by J. Lowell, Aug 21 2020
STATUS
approved