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 A078893 #13 Jan 01 2022 09:55:49 %S A078893 8,9,10,12,14,15,16,18,20,21,24,25,26,27,28,30,33,35,36,38,39,42,44, %T A078893 45,49,50,51,52,54,56,62,64,65,66,68,69,70,72,77,78,80,81,84,86,90,91, %U A078893 92,93,95,96,98,99,102,104,105,111,112,117,120,121,122,123,124,129,130,133 %N A078893 Composite numbers k such that phi(k) - 1 is prime, where phi is Euler's totient function (A000010). %C A078893 A078892 with the primes removed. - _Ray Chandler_, May 26 2008 %H A078893 Amiram Eldar, <a href="/A078893/b078893.txt">Table of n, a(n) for n = 1..10000</a> %t A078893 Select[Range[150],CompositeQ[#]&&PrimeQ[EulerPhi[#]-1]&] (* _Harvey P. Dale_, Dec 28 2021 *) %o A078893 (PARI) is(n)=!isprime(n) && isprime(eulerphi(n)-1) \\ _Charles R Greathouse IV_, Feb 21 2013 %Y A078893 Cf. A000010, A000040, A008864, A109606, A078892, A066071, A068019. %K A078893 nonn %O A078893 1,1 %A A078893 _Reinhard Zumkeller_, Dec 12 2002