A214632 a(1) = 17, a(n) is smallest prime of the form k*a(n - 1) + 1.
17, 103, 619, 2477, 34679, 416149, 7490683, 29962733, 419478263, 5872695683, 82217739563, 986612874757, 27625160493197, 994505777755093, 5967034666530559, 71604415998366709, 6444397439853003811, 180443128315884106709, 9743928929057741762287
Offset: 1
Keywords
Examples
a(2) = 103 = 6*17 + 1.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..300
Programs
-
Mathematica
t = {17}; Do[k = 1; While[p = k*t[[-1]] + 1; ! PrimeQ[p], k++]; AppendTo[t, p], {20}]; t (* T. D. Noe, Jul 24 2012 *) nxt[n_]:=Module[{k=1},While[!PrimeQ[k*n+1],k++];k*n+1]; NestList[nxt,17,20] (* Harvey P. Dale, Apr 18 2014 *)
Comments