|
%I #2 Mar 30 2012 17:27:42
%S 2,5,3,7,13,11,73,71,31,29,37,17,47,97,113,43,67,191,109,79,23,347,
%T 367,101,83,181,197,269,463,311,277,167,163,107,139,149,233,379,41,
%U 617,613,131,127,137,179,283,281,491,439,53,211,643,953,661,659,229,227,709,647
%N Primes arising in A096134 (as absolute first differences).
%e a(1) = abs(A096134(1) - A096134(2)) = abs(2 - 4) = 2.
%o (PARI) {a=2;v=Set([]);for(n=2,60,k=1;b=1;while(b,m=k*n;p=abs(m-a);if(gcd(m,n+1)==1&&isprime(p)&&setsearch(v,p)==0,v=setunion(v,Set(p));print1(p,",");a=m;b=0,k++)))}
%Y Cf. A096134.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, Jul 14 2004
|
