OFFSET
1,2
LINKS
Robert Price, Table of n, a(n) for n = 1..143
MATHEMATICA
lst = {0}; For[n = 2, n ≤ 143, n++, For[k = 2, k >= 1, k++, If[PrimeQ[(2*n - 1)^k - 2], AppendTo[lst, k]; Break[]]]]; lst
lnk[n_]:=Module[{k=2, c=2n-1}, While[!PrimeQ[c^k-2], k++]; k]; Join[{0}, Array[ lnk, 80, 2]] (* Harvey P. Dale, Jul 24 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Mar 02 2015
STATUS
approved