OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..275
PROG
(PARI)a=0; for(n=1, 7000, x=n-eulerphi(n); if(issquare(x), b=x; if(b>a, a=b; print(n))))
(PARI) { n=0; a=0; for (m=1, 10^9, if (issquare(b=m - eulerphi(m)), if (b>a, a=b; write("b063753.txt", n++, " ", m); if (n==275, break))) ) } \\ Harry J. Smith, Aug 29 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 11 2001
EXTENSIONS
More terms from Dean Hickerson, Aug 22 2001
STATUS
approved