login
Floor[ prime(n)^{prime(n)/n}], prime(n) = A000040(n).
1

%I #5 Jun 02 2019 16:33:49

%S 4,5,14,30,195,259,973,1089,3019,17416,15956,68436,122031,104011,

%T 173476,514829,1399259,1122753,2749896,3732219,3000994,6519381,

%U 8421098,16942907,51129827,61096684,47709104,56904308,45489733,54108081

%N Floor[ prime(n)^{prime(n)/n}], prime(n) = A000040(n).

%e a(8) = Floor[19^(19/8)]= Floor[1089.0298962779717053469717333646] = 1089.

%t Table[Floor[Prime[n]^(Prime[n]/n)],{n,30}] (* _Harvey P. Dale_, Jun 02 2019 *)

%Y Cf. A093861.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Apr 19 2004

%E More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Jul 10 2004