|
|
A073916
|
|
The n-th number with n divisors.
|
|
2
|
|
|
1, 3, 25, 14, 14641, 44, 24137569, 70, 1089, 405, 819628286980801, 160, 22563490300366186081, 2752, 9801, 462, 21559177407076402401757871041, 1044, 740195513856780056217081017732809, 1520, 141376, 84992
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Last element in n-th row of A073915.
a(p) = prime(p)^(p-1) for any prime number p. - Paul Tek, Jun 23 2013
|
|
LINKS
|
|
|
EXAMPLE
|
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
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|