login
n divided by A095163(n).
3

%I #10 Oct 14 2022 16:26:03

%S 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,

%T 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,

%U 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

%N n divided by A095163(n).

%C Differs from A059981 and A033676 at n = 20. - _Franklin T. Adams-Watters_, Dec 07 2006

%H Rémy Sigrist, <a href="/A095165/b095165.txt">Table of n, a(n) for n = 1..10000</a>

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

%o (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

%Y Cf. A095161, A095162, A095163, A095164.

%Y Cf. A116548.

%K nonn

%O 1,4

%A _Amarnath Murthy_, Jun 01 2004

%E More terms from _Franklin T. Adams-Watters_, Dec 07 2006