%I #6 Nov 28 2015 19:25:24
%S 13,37,41,43,73,83,97,103,137,139,151,163,167,193,199,223,521,523,547,
%T 577,607,641,643,647,769,1033,1063,1091,1103,1153,1283,1543,1567,1663,
%U 2053,2081,2083,2087,2113,2143,2179,2207,2239,2311,2591,2687,3079,3583,4129,4231,4639
%N Primes of the form 2^i + 2^j + 2^k - 1, i > j > k > 0.
%t Select[ Flatten[ Table[2^i + 2^j + 2^k - 1, {i, 3, 10}, {j, 2, i - 1}, {k, j - 1}]], PrimeQ]
%Y Cf. A000668, A095077, A239712.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 28 2015
|