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 A386410 #12 Jul 23 2025 21:25:16
%S A386410 1,2,66,30,1386,858,34650,1287678,6380946,11411400,24877650
%N A386410 Smallest k for which A385541(k) = n.
%t A386410 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 *)
%Y A386410 Cf. A385540, A385541.
%K A386410 nonn,more
%O A386410 1,2
%A A386410 _Juri-Stepan Gerasimov_, Jul 21 2025
%E A386410 a(8)-a(11) from _Amiram Eldar_, Jul 21 2025