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 A072281 #23 Sep 29 2019 03:03:44
%S A072281 5,7,8,9,10,12,13,14,18,19,21,26,27,28,31,36,38,42,43,49,54,61,62,73,
%T A072281 77,86,91,93,95,98,99,103,109,111,117,122,124,133,135,139,146,148,151,
%U A072281 152,154,171,181,182,186,189,190,193,198,199,206,209,216,217,218,221,222
%N A072281 Numbers n such that phi(n) + 1 and phi(n) - 1 are twin primes.
%C A072281 Phi(n) is middle term between twin primes (A014574). Union of A006512 and A068019; intersection of A039698 and A078892. - _Ray Chandler_, May 26 2008
%C A072281 The positions of isolated nonprimes in A000010. - _Juri-Stepan Gerasimov_, Nov 10 2009
%H A072281 Amiram Eldar, <a href="/A072281/b072281.txt">Table of n, a(n) for n = 1..10000</a>
%e A072281 phi(14) + 1 = 7 and phi(14) - 1 = 5, so 14 is a term of the sequence.
%t A072281 Select[Range[10^3], PrimeQ[EulerPhi[ # ] + 1] && PrimeQ[EulerPhi[ # ] - 1] &]
%t A072281 Select[Range[300],And@@PrimeQ[EulerPhi[#]+{1,-1}]&] (* _Harvey P. Dale_, Apr 07 2012 *)
%o A072281 (PARI) isok(n) = my(p); isprime(p=eulerphi(n)-1) && isprime(p+2); \\ _Michel Marcus_, Sep 29 2019
%Y A072281 Cf. A000010, A000040, A006512, A014574, A039698, A068019, A078892.
%K A072281 easy,nonn
%O A072281 1,1
%A A072281 _Joseph L. Pe_, Jul 10 2002
%E A072281 Extended by _Ray Chandler_, May 26 2008