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 A070163 #11 Nov 07 2024 08:32:49
%S A070163 3,3,2,5,7,7,7,11,11,11,13,17,23,19,23,29,23,23,31,29,31,29,43,31,31,
%T A070163 47,37,53,47,41,59,43,47,47,47,59,53,71,59,59,61,89,67,71,71,73,109,
%U A070163 79,107,79,107,83,83,89,131,109,127,97,137,101,139,103,107,107,109,139
%N A070163 Primes arising in A070162.
%H A070163 Amiram Eldar, <a href="/A070163/b070163.txt">Table of n, a(n) for n = 1..10000</a>
%F A070163 a(n) = A070162(n) - A000010(A070162(n)) - 1 = A051953(A070162(n)) - 1.
%t A070163 Do[s=n-EulerPhi[n]-1; If[PrimeQ[s], Print[s]], n, 1, 10000]
%o A070163 (PARI) lista(kmax) = {my(p); for(k = 1, kmax, p = k - eulerphi(k) - 1; if(isprime(p), print1(p, ", ")));} \\ _Amiram Eldar_, Nov 07 2024
%Y A070163 Cf. A000010, A051953, A070162.
%K A070163 nonn
%O A070163 1,1
%A A070163 _Labos Elemer_, Apr 26 2002