A386557 Smallest k for which A384834(k) = n.

1, 2, 10, 6, 60, 42, 210, 780, 420, 2730, 5460, 3570, 10920, 30030, 94710, 231420, 510510, 190190, 1504230, 2552550, 285285, 15120105, 1141140, 570570, 60480420, 78768690, 380570190, 577642065, 514083570

Offset

1,2

Links

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

Mathematica

f[n_] := DivisorSum[n, 1 &, PowerMod[-#, #, n] == n - # &]; With[{t = Array[f, 10^6]}, TakeWhile[FirstPosition[t, #] & /@ Range[Max[t]] // Flatten, ! MissingQ[#] &]] (* Amiram Eldar, Jul 26 2025 *)

Crossrefs

Cf. A386409, A384834.

Sequence in context: A142954 A082225 A211365 * A393330 A346498 A376376

Adjacent sequences: A386554 A386555 A386556 * A386558 A386559 A386560

Keyword

nonn,more

Author

Juri-Stepan Gerasimov, Jul 25 2025

Extensions

a(25)-a(29) from Amiram Eldar, Jul 26 2025

Status

approved