|
%I #7 Apr 06 2016 08:43:03
%S 2,3,7,11,37,137,1607,28789,631751,30295259,544682911,8684631317,
%T 34193842357,2658435072529,31867027027991,698416159543273,
%U 25111114716529837,501523878171053467,977936641625577097
%N a(1) = 2, a(2) = 3 and a(n) = the smallest prime of the form k*a(n-1) - a(n-2).
%H Harvey P. Dale, <a href="/A072534/b072534.txt">Table of n, a(n) for n = 1..200</a>
%t nxt[{a_,b_}]:=Module[{k=1},While[!PrimeQ[k*b-a],k++];{b,k*b-a}]; Transpose[ NestList[nxt,{2,3},20]][[1]] (* _Harvey P. Dale_, Apr 06 2016 *)
%K nonn
%O 1,1
%A _Amarnath Murthy_, Aug 02 2002
%E More terms from _Sascha Kurz_, Feb 12 2003
|
