This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A385499 #14 Jul 08 2025 01:03:49
%S A385499 1,2,6,42,70,870,44070,547470,15410670,168638470
%N A385499 a(n) is the smallest integer k such that A385392(k) = n.
%t A385499 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 *)
%Y A385499 Cf. A384237, A384781, A384854, A385100, A385391, A385392.
%K A385499 nonn,more
%O A385499 1,2
%A A385499 _Juri-Stepan Gerasimov_, Jun 30 2025
%E A385499 a(8)-a(10) from _Amiram Eldar_, Jul 03 2025