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 A039698 #30 Sep 08 2022 08:44:53 %S A039698 1,2,3,4,5,6,7,8,9,10,11,12,13,14,17,18,19,21,22,23,26,27,28,29,31,32, %T A039698 34,36,37,38,40,41,42,43,46,47,48,49,53,54,55,57,58,59,60,61,62,63,67, %U A039698 71,73,74,75,76,77,79,82,83,86,88,89,91,93,94,95,97,98,99,100,101,103 %N A039698 Numbers k such that phi(k) + 1 is prime. %C A039698 Positive integers k for which values of A039649(k) are primes. - _Vladimir Shevelev_, May 10 2008 %C A039698 For every prime p, the numbers p and 2p are terms of this sequence. - _Vladimir Shevelev_, May 10 2008 %C A039698 Union of A000040 and A066071. - _Ray Chandler_, May 26 2008 %H A039698 Antti Karttunen, <a href="/A039698/b039698.txt">Table of n, a(n) for n = 1..26197</a> (first 1000 terms from Vincenzo Librandi) %e A039698 phi(10)+1 = 4+1 = 5, a prime number, so 10 is a term. %t A039698 Select[Range[300], PrimeQ[EulerPhi[#] + 1]&] (* _Vincenzo Librandi_, Aug 13 2013 *) %o A039698 (Magma) [n: n in [1..200] | IsPrime(EulerPhi(n)+1)]; // _Vincenzo Librandi_, Aug 13 2013 %Y A039698 Cf. A000010, A000040, A006093, A039649, A066071, A007614. %Y A039698 Cf. A039689 (complement), A296079 (characteristic function). %Y A039698 Cf. also A065512, A078892, A263028, A248792. %K A039698 nonn,easy %O A039698 1,2 %A A039698 _Olivier Gérard_ %E A039698 Edited by _N. J. A. Sloane_, May 21 2008 at the suggestion of _R. J. Mathar_