|
%I #7 Jan 10 2017 19:11:50
%S 1,1,3,4,5,2,7,8,3,10,11,12,13,14,5,16,17,6,19,4,7,22,23,24,25,26,27,
%T 28,29,2,31,32,11,34,35,36,37,38,13,40,41,14,43,44,9,46,47,48,49,10,
%U 17,52,53,18,55,8,19,58,59,12,61,62,63,64,65,22,67,68,23,14,71,72,73,74,5,76,77,26,79,80,81,82,83,12,85,86,29,88,89,30,91,92,31
%N a(n) = n / A280489(n) = n / gcd(n,A241909(n)).
%H Antti Karttunen, <a href="/A280488/b280488.txt">Table of n, a(n) for n = 1..8192</a>
%F a(n) = n / A280489(n).
%o (Scheme) (define (A280488 n) (/ n (A280489 n)))
%Y Cf. A241909, A280489, A280490, A278520.
%K nonn
%O 1,3
%A _Antti Karttunen_, Jan 09 2017
|
