A152424 a[n_]:=IntegerPart[Prime[n^n]^(1/n)];

2, 2, 4, 6, 7, 9, 10, 11, 12, 13, 14, 16, 17, 18

Offset

1,1

Links

Table of n, a(n) for n=1..14.

Mathematica

Table[Floor[Surd[Prime[n^n], n]], {n, 14}] (* Harvey P. Dale, May 28 2023 *)

Crossrefs

Sequence in context: A143216 A086536 A053045 * A145804 A227560 A046639

Adjacent sequences: A152421 A152422 A152423 * A152425 A152426 A152427

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 03 2008

Extensions

More terms from Harvey P. Dale, May 28 2023

Status

approved