A385499 a(n) is the smallest integer k such that A385392(k) = n.

1, 2, 6, 42, 70, 870, 44070, 547470, 15410670, 168638470

Offset

1,2

Links

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

Mathematica

s[n_] := DivisorSum[n, 1 &, PowerMod[#, #, n] == n - # &]; With[{v = Array[s, 45000]}, TakeWhile[Flatten[FirstPosition[v, #] & /@ Range[Max[v]]], NumberQ]] (* Amiram Eldar, Jul 03 2025 *)

Crossrefs

Cf. A384237, A384781, A384854, A385100, A385391, A385392.

Sequence in context: A033936 A380393 A386913 * A203618 A334883 A098814

Adjacent sequences: A385496 A385497 A385498 * A385500 A385501 A385502

Keyword

nonn,more

Author

Juri-Stepan Gerasimov, Jun 30 2025

Extensions

a(8)-a(10) from Amiram Eldar, Jul 03 2025

Status

approved