A095165 n divided by A095163(n).

1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 2, 3, 4, 1, 3, 1, 5, 3, 2, 1, 4, 5, 2, 3, 4, 1, 6, 1, 4, 3, 2, 5, 6, 1, 2, 3, 5, 1, 7, 1, 4, 5, 2, 1, 8, 7, 5, 3, 4, 1, 9, 5, 8, 3, 2, 1, 6, 1, 2, 7, 8, 5, 6, 1, 4, 3, 7, 1, 9, 1, 2, 5, 4, 7, 6, 1, 10, 9, 2, 1, 7, 5, 2, 3, 11, 1, 10, 7, 4, 3, 2, 5, 12, 1, 7, 11, 10, 1, 6

Offset

1,4

Comments

Differs from A059981 and A033676 at n = 20. - Franklin T. Adams-Watters, Dec 07 2006

Links

Rémy Sigrist, Table of n, a(n) for n = 1..10000

Mathematica

nn = 102; c[_] = 0; Do[k = SelectFirst[Divisors[n], c[#] < # &]; a[n] = k; c[k]++, {n, nn}]; Array[#/a[#] &, nn] (* Michael De Vlieger, Oct 14 2022 *)

Prog

(PARI) { for (n=1, #nb=vector(102), fordiv (n, d, if (nb[d]<d, nb[d]++; print1 (n/d", "); break))) } \\ Rémy Sigrist, Oct 14 2022

Crossrefs

Cf. A095161, A095162, A095163, A095164.

Cf. A116548.

Sequence in context: A124044 A059981 A033676 * A355366 A046805 A034880

Adjacent sequences: A095162 A095163 A095164 * A095166 A095167 A095168

Keyword

nonn

Author

Amarnath Murthy, Jun 01 2004

Extensions

More terms from Franklin T. Adams-Watters, Dec 07 2006

Status

approved