A386410 Smallest k for which A385541(k) = n.

1, 2, 66, 30, 1386, 858, 34650, 1287678, 6380946, 11411400, 24877650

Offset

1,2

Links

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

Mathematica

A386410[n_] := DivisorSum[n, 1 &, PowerMod[#, #, n] == PowerMod[-#, #, n] == Mod[#, n] &]; seq[lim_] := Module[{s = Array[A386410, lim]}, TakeWhile[Flatten[FirstPosition[s, #] & /@ Range[Max[s]]], !MissingQ[#] &]]; seq[10^5] (* Amiram Eldar, Jul 21 2025 *)

Crossrefs

Cf. A385540, A385541.

Sequence in context: A055765 A265996 A309169 * A231946 A333677 A098089

Adjacent sequences: A386407 A386408 A386409 * A386411 A386412 A386413

Keyword

nonn,more

Author

Juri-Stepan Gerasimov, Jul 21 2025

Extensions

a(8)-a(11) from Amiram Eldar, Jul 21 2025

Status

approved