This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A095165 #10 Oct 14 2022 16:26:03 %S A095165 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 A095165 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 A095165 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 A095165 n divided by A095163(n). %C A095165 Differs from A059981 and A033676 at n = 20. - _Franklin T. Adams-Watters_, Dec 07 2006 %H A095165 Rémy Sigrist, <a href="/A095165/b095165.txt">Table of n, a(n) for n = 1..10000</a> %t A095165 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 A095165 (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 A095165 Cf. A095161, A095162, A095163, A095164. %Y A095165 Cf. A116548. %K A095165 nonn %O A095165 1,4 %A A095165 _Amarnath Murthy_, Jun 01 2004 %E A095165 More terms from _Franklin T. Adams-Watters_, Dec 07 2006