OFFSET
1,1
MATHEMATICA
Table[k = 0; While[!PrimeQ[(7^n + k)*7^n - 1], k++]; k, {n, 85}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Dec 01 2011
STATUS
approved