OFFSET
1,1
COMMENTS
Sequence does not contain any lesser of twin primes A001359. (Proof. If p(n+1) = p(n)+2, then gcd(p(n)-1, p(n+1)-1) = 2 = gcd(p(n)+1, p(n+1)+1), so p(n) is not a term.) - Jonathan Sondow, Feb 03 2012
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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, 200}]; lst
Transpose[Select[Partition[Prime[Range[200]], 2, 1], GCD@@(#-1)>GCD@@(#+1)&]] [[1]] (* Harvey P. Dale, Sep 30 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 11 2010
EXTENSIONS
Definition clarified by Jonathan Sondow, Feb 03 2012
STATUS
approved