|
%I #2 Mar 30 2012 17:27:42
%S 3,5,7,11,13,17,19,47,53,67,41,23,43,79,103,257,271,191,109,37,113,61,
%T 29,31,149,379,349,263,229,59,97,367,461,211,173,409,443,313,311,739,
%U 653,83,661,659,139,137,193,397,587,307,163,467,433,431,337,107,227,709
%N Primes arising in A096879 (as absolute first differences).
%e a(1) = abs(A096879(1) - A096879(2)) = abs(1 - 4) = 3.
%o (PARI) {a=1;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. A096879.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, Jul 14 2004
|
