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 A226385 #8 Dec 27 2013 12:08:35
%S A226385 4,8,9,16,18,25,27,32,36,49,50,54,64,72,75,81,98,99,100,108,121,125,
%T A226385 128,144,147,150,162,169,175,196,198,200,207,216,225,242,243,245,250,
%U A226385 256,288,289,294,297,300,324,338,343,350,361,363,375,392,396,400,414
%N A226385 Numbers n such that rad(phi(n)) > phi(rad(n)), where rad(n) is the squarefree kernel of n, and phi is Euler's totient function.
%H A226385 Charles R Greathouse IV, <a href="/A226385/b226385.txt">Table of n, a(n) for n = 1..10000</a>
%t A226385 rad[n_] := Product[fa[n][[i, 1]], {i,Length[fa[n]]}]; fa = FactorInteger; Select[Range[500], rad[EulerPhi[#]] > EulerPhi[rad[#]] &]
%o A226385 (PARI) rad(n)=my(f=factor(n)[,1]); prod(i=1,#f,f[i])
%o A226385 is(n)=rad(eulerphi(n))>eulerphi(rad(n)) \\ _Charles R Greathouse IV_, Dec 27 2013
%Y A226385 Cf. A007947, A000010, A226384, A226386.
%K A226385 nonn
%O A226385 1,1
%A A226385 _José María Grau Ribas_, Jun 05 2013