|
%I #17 Apr 19 2016 01:07:35
%S 0,1,1,1,1,3,3,3,3,3,9,15,47,63,67,69,93,99,105,111,111,115,121,139,
%T 165,189,205,231,249,253,285,291,309,323,363,367,369,377,395,401,465,
%U 501,533,587,591,609,629,657,693,729,735,783,787,825,863,863,869,917,981
%N Numbers k(n) from A105120.
%H Zak Seidov, <a href="/A105121/b105121.txt">Table of n, a(n) for n = 1..200.</a>
%t a[1] = {2, 0}; a[n_] := a[n] = Block[{m = 2a[n - 1][[1]], k = a[n - 1][[2]]}, While[ !PrimeQ[m + k], k++ ]; {m + k, k}]; Table[ a[n][[2]], {n, 59}] (* _Robert G. Wilson v_, Apr 08 2005 *)
%o (PARI) a=2;print1(k=0,",");for(n=2,59,j=k;while(!isprime(2*a+j),j++);print1(k=j,",");a=2*a+k) \\ _Klaus Brockhaus_
%Y Cf. A105120.
%K nonn
%O 1,6
%A _Yasutoshi Kohmoto_, Apr 08 2005
%E Edited, corrected and extended by _Klaus Brockhaus_ and _Robert G. Wilson v_, Apr 08 2005
|
