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 A379450 #19 Jan 05 2025 23:42:02
%S A379450 3,5,7,11,31,11,79,47,211,113,2473,47,45841,389,1123,1061
%N A379450 a(n) is the smallest prime p such that omega(p^n - 1) is equal to n, where omega = A001221.
%C A379450 a(17) <= 2487619. - _Daniel Suteu_, Jan 05 2025
%e A379450 a(1) = 3 because omega(3^1 - 1) = omega(2) = 1,
%e A379450 a(2) = 5 because omega(5^2 - 1) = omega(24) = 2,
%e A379450 a(3) = 7 because omega(7^3 - 1) = omega(342) = 3.
%t A379450 a[n_] := Module[{p = 2}, While[PrimeNu[p^n - 1] != n, p = NextPrime[p]]; p]; Array[a, 12] (* _Amiram Eldar_, Dec 25 2024 *)
%o A379450 (PARI) a(n) = my(p=2); while (omega(p^n - 1) != n, p=nextprime(p+1)); p; \\ _Michel Marcus_, Dec 24 2024
%Y A379450 Cf. A001221, A219019.
%K A379450 nonn,more
%O A379450 1,1
%A A379450 _Juri-Stepan Gerasimov_, Dec 23 2024