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,1

Links

Table of n, a(n) for n=0..65.

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

Cf. A064623.

Sequence in context: A180496 A082433 A082683 * A260940 A037464 A302564

Adjacent sequences: A084749 A084750 A084751 * A084753 A084754 A084755

Keyword

nonn

Author

Amarnath Murthy, Jun 16 2003

Extensions

More terms from David Wasserman, Jan 04 2005

Status

approved