%I #11 Aug 02 2019 23:01:12
%S 7,19,23,43,47,53,67,79,83,103,127,131,139,163,167,173,223,233,251,
%T 257,263,293,307,353,359,379,383,409,439,443,463,467,479,487,491,499,
%U 503,509,557,563,587,593,643,647,653,677,683,709,719,739,743,797,823,829
%N Primes p(n) such that gcd(p(n)-1, p(n+1)-1) < gcd(p(n)+1, p(n+1)+1).
%t lst={};Do[p0=Prime[n];p1=Prime[n+1];If[GCD[p0-1,p1-1]<GCD[p0+1,p1+1],AppendTo[lst,p0]],{n,6!}];lst
%t Transpose[Select[Partition[Prime[Range[150]],2,1],GCD[First[#]-1, Last[#]-1]<GCD[First[#]+1,Last[#]+1]&]][[1]] (* _Harvey P. Dale_, Jul 06 2011 *)
%Y Cf. A063091, A176180, A176181.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 11 2010