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,2

Links

Table of n, a(n) for n=1..70.

Prog

(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)])

Crossrefs

Cf. A327446, A327093.

Sequence in context: A192085 A117001 A206787 * A192066 A347385 A336113

Adjacent sequences: A327416 A327417 A327418 * A327420 A327421 A327422

Keyword

nonn

Author

Peter Luschny, Sep 14 2019

Status

approved