cp's OEIS Frontend

A327419 Numbers, when duplicates removed and sorted, are A327446, the complement of A327093.

%I A327419 #8 Sep 16 2019 12:28:41
%S A327419 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 A327419 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 A327419 26,65,8,77,30,60,22,62,32,64,1,85,46,68,18,94,41,72
%N A327419 Numbers, when duplicates removed and sorted, are A327446, the complement of A327093.
%o A327419 (SageMath)
%o A327419 def A327419(n):
%o A327419     s = n + 1
%o A327419     for k in srange(n, 0, -1):
%o A327419         if k.divides(s):
%o A327419             s += k if is_odd(s//k) else -k
%o A327419     return s
%o A327419 print([A327419(n) for n in (1..70)])
%Y A327419 Cf. A327446, A327093.
%K A327419 nonn
%O A327419 1,2
%A A327419 _Peter Luschny_, Sep 14 2019