This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176182 #11 Aug 02 2019 23:01:12 %S A176182 7,19,23,43,47,53,67,79,83,103,127,131,139,163,167,173,223,233,251, %T A176182 257,263,293,307,353,359,379,383,409,439,443,463,467,479,487,491,499, %U A176182 503,509,557,563,587,593,643,647,653,677,683,709,719,739,743,797,823,829 %N A176182 Primes p(n) such that gcd(p(n)-1, p(n+1)-1) < gcd(p(n)+1, p(n+1)+1). %t A176182 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 A176182 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 A176182 Cf. A063091, A176180, A176181. %K A176182 nonn %O A176182 1,1 %A A176182 _Vladimir Joseph Stephan Orlovsky_, Apr 11 2010