OFFSET
0,7
FORMULA
MAPLE
A107797 := proc(n)
numtheory[phi](A000931(n+4)) ;
end proc:
seq(A107797(n), n=0..50) ; # R. J. Mathar, Sep 11 2011
MATHEMATICA
(*Method one*) M = {{0, 1, 0}, {0, 0, 1}, {1, 1, 0}} v[1] = {0, 1, 1} v[n_] := v[n] = M.v[n - 1] a = Table[EulerPhi[v[n][[1]]], {n, 1, 50}] (Method two*) F[1] = 0; F[2] = 1; F[3] = 1; F[n__] := F[n] = F[n - 2] + F[n - 3] a = Table[EulerPhi[F[n]], {n, 1, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 11 2005
STATUS
approved