%I #4 Mar 30 2012 17:26:27
%S 4,4,8,8,16,16,25,25,25,36,36,49,49,49,49,64,64,64,81,81,81,81,100,
%T 100,100,121,121,121,121,121,144,144,144,144,169,169,169,169,169,196,
%U 196,196,196,196,216,216,216,225,256,256,256,256,256,256,289,289,289,289
%N a(n) = the smallest square (and/or cube) > n-th prime
%C a(n) = min(A145445(n), A145446(n) )= min ([A104103(n)]^2, [A104147(n)]^3)
%t Table[Min[{Ceiling[Prime[n]^(1/3)]^3,Ceiling[Prime[n]^(1/2)]^2}],{n,100}]
%Y A104103, A104147, A145445, A145446
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 10 2008
|