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 A079476 #13 Oct 26 2017 01:51:03 %S A079476 2,2,7,11,23,13,43,37,59,41,113,53,157,89,127,131,277,109,347,163,257, %T A079476 223,509,193,503,313,487,337,821,241,937,521,661,547,853,433,1361,691, %U A079476 937,641,1657,509,1811,881,1087,1013,2179,769,2063,1009,1637,1249,2767 %N A079476 First prime greater than or equal to phi(n^2). %C A079476 The sequence generally goes up,down,up,down... %H A079476 Robert Israel, <a href="/A079476/b079476.txt">Table of n, a(n) for n = 1..10000</a> %F A079476 a(n) = A007918(A002618(n)). - _Robert Israel_, Oct 25 2017 %e A079476 phi(3^2)=phi(9)=6, therefore a(3)=7. %p A079476 map(t -> nextprime(numtheory:-phi(t^2)-1), [$1..100]); # _Robert Israel_, Oct 25 2017 %t A079476 Array[If[PrimeQ@ #, #, NextPrime@ #] &@ EulerPhi[#^2] &, 53] (* _Michael De Vlieger_, Oct 25 2017 *) %o A079476 (PARI) for (n=1,100, print1(nextprime(eulerphi(n^2))",")) %Y A079476 Cf. A002618, A007918. %K A079476 nonn,look %O A079476 1,1 %A A079476 _Jon Perry_, Jan 15 2003 %E A079476 Corrected by _Robert Israel_, Oct 25 2017