OFFSET
2,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 2..1000
PROG
(PARI) fpr(Nmax, lim) = {for (i=2, Nmax, N = i*6; op = vector(N); f = 0; for (n=1, lim, if (op[n%N+1]+0==op[n%N+1]=eulerphi(n), if ((n-N) % i != 0, f = n-N; break; ); ); ); print1(f, ", "); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Sep 27 2012
STATUS
approved