|
|
A090528
|
|
Primes arising in A090527.
|
|
3
|
|
|
2, 13, 23, 107, 4241, 6011, 212369, 2600137, 769230769, 16783039447, 49260223471, 43267872370321, 156507138388141, 10680338789777057, 348051774975651917, 1529094753948866477, 199727959773078870941, 32433109109185468674163
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Conjecture: No term is zero.
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[p = n^n; i = 1; While[ !ProvablePrimeQ[Floor[p/Prime[i]]], i++ ]; Print[Floor[p/Prime[i]]], {n, 2, 50}] (* Ryan Propper, Aug 02 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|