OFFSET
1,2
PROG
(PARI) {s=[1]; for (n=2, 40, print1(sum(i=1, n-1, s[i]), ", "); a=s[n-1]; s=[a+1]; for(j=2, n, k=s[j-1]+1; c=1; while(c>0, b=1; for(i=1, matsize(s)[2], if(gcd(k, s[i])>1, b=0)); if(b==0, k++, c=0)); s=concat(s, k)))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 27 2002
EXTENSIONS
Edited and extended by Klaus Brockhaus, Dec 10 2002
STATUS
approved