A180173 a(n) = gcd(prime(n)-2, n).
1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 13, 1, 15, 1, 1, 1, 1, 1, 1, 11, 1, 3, 5, 1, 1, 7, 1, 3, 1, 1, 3, 1, 7, 1, 1, 1, 3, 1, 1, 1, 1, 1, 15, 1, 1, 1, 1, 1, 3, 1, 1, 3, 5, 1, 3, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 69, 1, 1, 3, 73, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3
Offset: 1
Keywords
Programs
-
Mathematica
Table[GCD[n,Prime[n]-2],{n,200}]