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

%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