A090526 Primes arising in A090525, or 0 if A090525(n) = 0.

2, 13, 23, 347, 4241, 41177, 1677721, 9224297, 769230769, 17831979413, 156422814881, 43267872370321, 317485909301657, 10680338789777057, 348051774975651917, 23635436053895336119, 230095953656704898101

Offset

2,1

Comments

Conjecture: No term is zero.

Conjecture is true: see A090525. - Robert Israel, Mar 02 2023

Links

Robert Israel, Table of n, a(n) for n = 2..386

Formula

a(n) = floor(n^n/A090525(n)). - Robert Israel, Mar 02 2023

Maple

f:= proc(n) local t, k, s;
  t:= n^n;
  for k from 2 do s:= floor(t/k); if isprime(s) then return s fi od
end proc:
map(f, [$2..100]); # Robert Israel, Mar 02 2023

Mathematica

Do[p = n^n; i = 2; While[ !PrimeQ[Floor[p/i]], i++ ]; Print[Floor[p/i]], {n, 2, 30}] (* Ryan Propper, Aug 02 2005 *)

Crossrefs

Cf. A090525, A090527, A090528.

Sequence in context: A029971 A243619 A243620 * A362433 A284516 A284651

Adjacent sequences: A090523 A090524 A090525 * A090527 A090528 A090529

Keyword

nonn

Author

Amarnath Murthy, Dec 07 2003

Extensions

More terms from Ryan Propper, Aug 02 2005

Offset corrected by Robert Israel, Mar 02 2023

Status

approved