A090528 Primes arising in A090527.

2, 13, 23, 107, 4241, 6011, 212369, 2600137, 769230769, 16783039447, 49260223471, 43267872370321, 156507138388141, 10680338789777057, 348051774975651917, 1529094753948866477, 199727959773078870941, 32433109109185468674163

Offset: 1

Author

Amarnath Murthy, Dec 07 2003

Keywords

• nonn

Comments

Conjecture: No term is zero.

Crossrefs

Cf. A090525, A090526, A090527.

Programs

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

Extensions

More terms from Ryan Propper, Aug 02 2005