A386436 Smallest k for which A385731(k) = n.

1, 2, 6, 42, 1770, 47058, 547470, 8648458, 623254170

Offset: 1

Author

Juri-Stepan Gerasimov and Michel Marcus, Jul 21 2025

Keywords

• nonn
• more

Crossrefs

Cf. A385729, A385731, A386410.

Programs

Mathematica

a[n_]:=Module[{k=0},Until[Length[Select[Divisors[k], Mod[-#, k]==PowerMod[-#, #, k]==PowerMod[#, #, k]&]]==n,k++];k];Array[a,7] (* James C. McMahon, Aug 06 2025 *)

Extensions

a(9) from Michel Marcus, Jul 21 2025