%I #5 Aug 02 2019 21:19:05
%S 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,
%T 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,
%U 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
%N a(n) = gcd(prime(n)-2, n).
%t Table[GCD[n,Prime[n]-2],{n,200}]
%Y Cf. A084309, A084310, A180172.
%K nonn
%O 1,3
%A _Zak Seidov_, Aug 15 2010