login
A327419
Numbers, when duplicates removed and sorted, are A327446, the complement of A327093.
2
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
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
Sequence in context: A192085 A117001 A206787 * A192066 A347385 A336113
KEYWORD
nonn
AUTHOR
Peter Luschny, Sep 14 2019
STATUS
approved