OFFSET
1,2
MATHEMATICA
Table[k = 0; While[!PrimeQ[(3^n + k)*3^n + 1], k++]; k, {n, 72}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 24 2011
STATUS
approved