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

Author

Amarnath Murthy, Jun 01 2004

Keywords

• nonn

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

Crossrefs

Cf. A095161, A095162, A095163, A095164.

Cf. A116548.

Programs

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 *)

PARI

{ for (n=1, #nb=vector(102), fordiv (n, d, if (nb[d]Rémy Sigrist, Oct 14 2022

Extensions

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