A111316 a(n) = A109890(A111315(n)).

3, 6, 113573, 230801, 941071, 5166859, 30956561, 123081011, 3050325741, 14086296281, 60060345973, 120331687901, 316465918571, 634257678809, 8042099198501, 34761370800833, 134702376451061, 269979973606237

Offset

1,1

Links

Table of n, a(n) for n=1..18.

Prog

(PARI) s = 3; S = Set([1, 2]); i = 3; while (1, d = divisors(s); j = 1; while (setsearch(S, d[j]), j++); n = d[j]; if (n == s, print1(s, ", ")); s += n; S = setunion(S, Set(n)); i++); \\ David Wasserman, Jan 09 2009

Crossrefs

Cf. A109890, A111315.

Sequence in context: A122182 A276701 A157596 * A297530 A222010 A152590

Adjacent sequences: A111313 A111314 A111315 * A111317 A111318 A111319

Keyword

nonn

Author

N. J. A. Sloane, Nov 04 2005

Extensions

More terms from David Wasserman, Jan 09 2009

Status

approved