|
%I
%S 1,4,7,10,13,16,21,26,33,38,41,48,53,56,75,82,85,88,91,102,109,114,
%T 119,122,129,134,137,140,143,150,157,160,171,176,183,190,193,196,201,
%U 208,211,222,227,230,233,246,253,256,267,274,297,302,305,308,311,330,343
%N Numbers in increasing order such that successive sum and difference both are primes: a(n) + a(n-1) and a(n) - a(n-1) both are primes.
%t a = 1; Print[a]; Do[k = a + 1; While[ !(PrimeQ[k - a] && PrimeQ[k + a]), k++ ]; a = k; Print[a], {n, 1, 100}] (* _Ryan Propper_, Aug 27 2005 *)
%Y Cf. A090956.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Dec 31 2003
%E More terms from _Ryan Propper_, Aug 27 2005
|
