OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MAPLE
with(numtheory); A063077:=n->phi(n^2+1)-2*n; seq(A063077(k), k=1..100); # Wesley Ivan Hurt, Oct 24 2013
MATHEMATICA
Table[EulerPhi[n^2 + 1] - 2 n, {n, 100}] (* Wesley Ivan Hurt, Oct 24 2013 *)
PROG
(PARI) a(n)={eulerphi(n^2 + 1) - 2*n}
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Jason Earls, Aug 05 2001
STATUS
approved