OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
t=Table[EulerPhi[w], {w, 1, 25000}]; u=Union[%]; Delete[u-RotateRight[u], 1]
PROG
(Haskell)
a083533 n = a083533_list !! (n-1)
a083533_list = zipWith (-) (tail a002202_list) a002202_list
-- Reinhard Zumkeller, Nov 26 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 20 2003
STATUS
approved