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 A328445 #18 Nov 14 2019 21:15:25 %S A328445 5,11,127,401,1487,1153,6199,10301,22193,72277,1301423 %N A328445 a(n) is the smallest prime p such that n = Omega(p^n - 2) = Omega(p^n + 2) where Omega = A001222. %e A328445 5 is a term of a(1) because 1 = Omega(5) = Omega(7), %e A328445 11 is a term of a(2) because 2 = Omega(119) = Omega(123). %t A328445 a[n_] := Module[{p = 2}, While[PrimeOmega[p^n - 2] != n || PrimeOmega[p^n + 2] != n, p = NextPrime[p]]; p]; Array[a, 10] (* _Amiram Eldar_, Oct 15 2019 *) %o A328445 (PARI) a(n) = {my(p=3); while (! ((bigomega(p^n-2) == n) && (bigomega(p^n+2) == n)), p = nextprime(p+1)); p;} \\ _Michel Marcus_, Oct 17 2019 %Y A328445 Cf. A001222 (bigomega), A328359. %K A328445 nonn,more %O A328445 1,1 %A A328445 _Juri-Stepan Gerasimov_, Oct 15 2019 %E A328445 a(11) from _Daniel Suteu_ and _Giovanni Resta_, Nov 07 2019