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

Author

Juri-Stepan Gerasimov, Jul 25 2025

Keywords

• nonn
• more

Crossrefs

Cf. A386409, A384834.

Programs

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 *)

Extensions

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