A084752 A064623(n)/s, where s = sum of the prime divisors of A064623(n).

3, 5, 7, 7, 11, 13, 13, 11, 19, 33, 19, 19, 17, 23, 23, 31, 34, 51, 31, 31, 37, 29, 37, 43, 43, 91, 95, 47, 58, 43, 47, 119, 53, 41, 143, 74, 59, 67, 67, 161, 59, 82, 73, 67, 71, 209, 71, 221, 59, 71, 89, 185, 106, 89, 221, 79, 71, 122, 83, 222, 103, 177, 103, 101, 107, 109

Offset: 0

Author

Amarnath Murthy, Jun 16 2003

Keywords

• nonn

Crossrefs

Cf. A064623.

Programs

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

Extensions

More terms from David Wasserman, Jan 04 2005