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