A176180 Primes p such that gcd(p(n)-1, p(n+1)-1) != gcd(p(n)+1, p(n+1)+1).
7, 13, 19, 23, 31, 37, 43, 47, 53, 61, 67, 73, 79, 83, 89, 97, 103, 109, 113, 127, 131, 139, 151, 157, 163, 167, 173, 181, 193, 199, 211, 223, 229, 233, 241, 251, 257, 263, 271, 277, 293, 307, 313, 331, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 421
Offset: 1
Keywords
Crossrefs
Cf. A063091
Programs
-
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