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,2

Links

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

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

Crossrefs

Cf. A385638, A386930.

Sequence in context: A125809 A245176 A000117 * A338729 A308030 A252653

Adjacent sequences: A386281 A386282 A386283 * A386285 A386286 A386287

Keyword

nonn

Author

Juri-Stepan Gerasimov, Aug 14 2025

Status

approved