WolframAlpha computational knowledge AI
Table[{10^12 + 1 - 2 n, PrimeQ[10^12 + 1 - 2 n]}, {n, 1, 10}]