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

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, 22, 32, 1, 46, 18, 41, 9, 38, 20, 53, 6, 42, 29, 44, 12, 66, 24, 48, 4, 49, 28, 70, 14, 54, 26, 65, 8, 77, 30, 60, 22, 62, 32, 64, 1, 85, 46, 68, 18, 94, 41, 72

Offset: 1

Author

Peter Luschny, Sep 14 2019

Keywords

• nonn

Crossrefs

Cf. A327446, A327093.

Programs

SageMath

def A327419(n):
    s = n + 1
    for k in srange(n, 0, -1):
        if k.divides(s):
            s += k if is_odd(s//k) else -k
    return s
print([A327419(n) for n in (1..70)])