OFFSET
1,1
MATHEMATICA
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
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 11 2010
STATUS
approved