|
|
A354931
|
|
a(n) = the least k for which A345992(k) = n.
|
|
4
|
|
|
1, 6, 12, 20, 15, 42, 28, 24, 45, 110, 33, 156, 91, 70, 60, 112, 51, 342, 76, 140, 231, 198, 69, 168, 325, 234, 108, 476, 87, 930, 124, 96, 561, 170, 315, 1116, 185, 418, 195, 360, 123, 714, 172, 220, 585, 1426, 141, 336, 245, 850, 204, 988, 159, 270, 385, 1064, 1311, 522, 177, 3660, 488, 434, 504, 320, 715, 1254
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
s[n_] := Module[{m = 1}, While[!Divisible[m*(m+1), n], m++]; GCD[n, m]]; a[n_] := Module[{k = n}, While[s[k] != n, k+=n]; k]; Array[a, 60] (* Amiram Eldar, Jun 15 2022 *)
|
|
PROG
|
(PARI)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|