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 A078892 #12 Sep 08 2022 08:45:08 %S A078892 5,7,8,9,10,12,13,14,15,16,18,19,20,21,24,25,26,27,28,30,31,33,35,36, %T A078892 38,39,42,43,44,45,49,50,51,52,54,56,61,62,64,65,66,68,69,70,72,73,77, %U A078892 78,80,81,84,86,90,91,92,93,95,96,98,99,102,103,104,105,109,111,112,117 %N A078892 Numbers n such that phi(n) - 1 is prime, where phi is Euler's totient function (A000010). %C A078892 For all primes p: p is in the sequence iff p is the greater member of a twin prime pair (A006512), see A078893. %C A078892 Union of A006512 and A078893. - _Ray Chandler_, May 26 2008 %H A078892 Vincenzo Librandi, <a href="/A078892/b078892.txt">Table of n, a(n) for n = 1..1000</a> %t A078892 Select[Range[200], PrimeQ[EulerPhi[#] - 1]&] (* _Vincenzo Librandi_, Aug 13 2013 *) %o A078892 (PARI) is(n)=isprime(eulerphi(n)-1) \\ _Charles R Greathouse IV_, Feb 21 2013 %o A078892 (Magma) [n: n in [1..200] | IsPrime(EulerPhi(n)-1)]; // _Vincenzo Librandi_, Aug 13 2013 %Y A078892 Cf. A000010, A000040, A008864, A109606, A006512, A039698, A072281, A078893. %K A078892 nonn,easy %O A078892 1,1 %A A078892 _Reinhard Zumkeller_, Dec 12 2002