OFFSET
0,1
PROG
(PARI) x = vector(80); B = vector(80); i = 3; count = 0; while (count < 80, i++; if (omega(i) > 1, f = factor(i); s = sum(j = 1, matsize(f)[1], f[j, 1]); if (!(i%s), works = 1; j = 1; while (works && j <= count, if (i%x[j], j++, works = 0)); if (works, count++; x[count] = i; B[count] = i/s)))); B \\ David Wasserman, Jan 04 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 16 2003
EXTENSIONS
More terms from David Wasserman, Jan 04 2005
STATUS
approved