15 lines
290 B
Text
15 lines
290 B
Text
ClearAll[FindUltraUsefulPrimeK]
|
|
FindUltraUsefulPrimeK[n_] := Module[{num, tmp},
|
|
num = 2^(2^n);
|
|
Do[
|
|
If[PrimeQ[num - k],
|
|
tmp = k;
|
|
Break[];
|
|
]
|
|
,
|
|
{k, 1, \[Infinity], 2}
|
|
];
|
|
tmp
|
|
]
|
|
res = FindUltraUsefulPrimeK /@ Range[13];
|
|
TableForm[res, TableHeadings -> Automatic]
|