cp's OEIS Frontend

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.

A073916 The n-th number with n divisors.

This page as a plain text file.
%I A073916 #22 Aug 28 2021 00:08:29
%S A073916 1,3,25,14,14641,44,24137569,70,1089,405,819628286980801,160,
%T A073916 22563490300366186081,2752,9801,462,21559177407076402401757871041,
%U A073916 1044,740195513856780056217081017732809,1520,141376,84992
%N A073916 The n-th number with n divisors.
%C A073916 Last element in n-th row of A073915.
%C A073916 a(p) = prime(p)^(p-1) for any prime number p. - _Paul Tek_, Jun 23 2013
%H A073916 T. D. Noe, <a href="/A073916/b073916.txt">Table of n, a(n) for n = 1..100</a>
%e A073916 For n = 4; the numbers with four divisors are 6, 8, 10, 14, 15, 21,... so a(4) = 14 because 14 is the 4th number with four divisors. - _Omar E. Pol_, Jun 01 2012
%t A073916 d = Table[Length[Divisors[n]], {n, 200000}]; t = {}; n = 0; ok = True; While[ok, n++; If[PrimeQ[n], AppendTo[t, Prime[n]^(n - 1)], c = Flatten[Position[d, n, 1, n]]; If[Length[c] >= n, AppendTo[t, c[[n]]], ok = False]]]; t (* _T. D. Noe_, Jun 23 2013 *)
%Y A073916 Cf. A073915.
%K A073916 nonn
%O A073916 1,2
%A A073916 _Amarnath Murthy_, Aug 18 2002
%E A073916 More terms from _Sascha Kurz_, Jan 28 2003
%E A073916 New name from _Omar E. Pol_, Jun 01 2012
%E A073916 a(22)-a(34) from _Paul Tek_, Jun 23 2013