cp's OEIS Frontend

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.

A328445 a(n) is the smallest prime p such that n = Omega(p^n - 2) = Omega(p^n + 2) where Omega = A001222.

This page as a plain text file.
%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