OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000
FORMULA
a(n) = n / A354999(n).
MATHEMATICA
s[n_] := Module[{m = 1}, While[! Divisible[m*(m + 1), n], m++]; m]; a[n_] := Module[{sn = s[n], ds = Divisors[n]}, Do[If[s[d] == sn, Return[d]], {d, ds}]]; Array[a, 100] (* Amiram Eldar, Jun 17 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 17 2022
STATUS
approved