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 A107656 #7 Apr 30 2024 01:47:04
%S A107656 1,2,3,4,652245
%N A107656 Numbers k such that prime(k) = d(k)*phi(k) + 1, where d(k) is number of positive divisors of k.
%C A107656 There is no further term up to 5*10^7.
%C A107656 a(6) > 10^10, if it exists. - _Amiram Eldar_, Apr 30 2024
%e A107656 652245 is in the sequence because prime(652245) = d(652245)*phi(652245) + 1.
%t A107656 Do[If[Prime[n] == DivisorSigma[0, n]*EulerPhi[n] + 1, Print[n]], {n, 50000000}]
%o A107656 (PARI) lista(pmax) = {my(k = 0, f); forprime(p=1, 1e16, k++; f = factor(k); if(p == numdiv(f)*eulerphi(f)+1, print1(k,", ")));} \\ _Amiram Eldar_, Apr 30 2024
%Y A107656 Cf. A000005, A000010, A104905, A107657.
%K A107656 nonn,more
%O A107656 1,2
%A A107656 _Farideh Firoozbakht_, Jun 06 2005