OFFSET
1,2
PROG
(PARI) S=Set(); for(n=2, 50, k=0; m=1; s=0; while(k<n, m++; if(!setsearch(S, m)&&gcd(m, n)>1, S=setunion(S, [m]); k++; s+=m)); print1(" ", s)) (Alekseyev)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 01 2004
EXTENSIONS
More terms from Max Alekseyev, Jun 30 2005
STATUS
approved