%I #6 Jan 10 2017 19:12:04
%S 1,2,1,1,1,3,1,1,3,1,1,1,1,1,3,1,1,3,1,5,3,1,1,1,1,1,1,1,1,15,1,1,3,1,
%T 1,1,1,1,3,1,1,3,1,1,5,1,1,1,1,5,3,1,1,3,1,7,3,1,1,5,1,1,1,1,1,3,1,1,
%U 3,5,1,1,1,1,15,1,1,3,1,1,1,1,1,7,1,1,3,1,1,3,1,1,3,1,1,1,1,1,1,25,1,3,1,1,15,1,1,1,1,5,3,1,1,3,1,1,1,1,1
%N a(n) = gcd(n,A241909(n)).
%H Antti Karttunen, <a href="/A280489/b280489.txt">Table of n, a(n) for n = 1..8192</a>
%F a(n) = gcd(n,A241909(n)).
%F a(n) = n / A280488(n).
%F Other identities. For all n >= 1:
%F a(A241909(n)) = a(n).
%o (Scheme) (define (A280489 n) (gcd n (A241909 n)))
%Y Cf. A241909, A280488, A280491.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jan 09 2017