%I #8 Sep 16 2019 12:28:41
%S 1,4,1,6,4,8,1,9,6,12,4,14,8,22,1,18,9,20,6,29,12,24,4,28,14,26,8,30,
%T 22,32,1,46,18,41,9,38,20,53,6,42,29,44,12,66,24,48,4,49,28,70,14,54,
%U 26,65,8,77,30,60,22,62,32,64,1,85,46,68,18,94,41,72
%N Numbers, when duplicates removed and sorted, are A327446, the complement of A327093.
%o (SageMath)
%o def A327419(n):
%o s = n + 1
%o for k in srange(n, 0, -1):
%o if k.divides(s):
%o s += k if is_odd(s//k) else -k
%o return s
%o print([A327419(n) for n in (1..70)])
%Y Cf. A327446, A327093.
%K nonn
%O 1,2
%A _Peter Luschny_, Sep 14 2019