OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
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
(PARI) lista(lim) = {my(k1 = 1, k2 = 1); while(k1 < lim, until(istotient(k2), k2++); print1(k2 - k1, ", "); k1 = k2); } \\ Amiram Eldar, Nov 16 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 20 2003
STATUS
approved