A386284 Smallest k for which A386930(k) = n.

1, 2, 4, 8, 18, 45, 36, 90, 72, 108, 144, 315, 216, 540, 576, 432, 648, 1350, 864, 2160, 1296, 1728, 4050, 2700, 2592, 3888, 6912, 11340, 5184, 5400, 7776, 10395, 10368, 13500, 20790, 10800, 23328, 24300, 16200, 31185, 31104, 21600, 27000, 40500, 62208, 56700

Offset: 1

Author

Juri-Stepan Gerasimov, Aug 14 2025

Keywords

• nonn
• new

Crossrefs

Cf. A385638, A386930.

Programs

Mathematica

a386930[n_] := DivisorSum[n, 1 &, PowerMod[-#, #, n] == Mod[-PowerMod[#, #, n], n] &];a[n_]:=Module[{k=0},Until[a386930[k]==n,k++];k];Array[a,46] (* James C. McMahon, Aug 21 2025 *)