A145447 a(n) = the smallest square (and/or cube) > n-th prime.

4, 4, 8, 8, 16, 16, 25, 25, 25, 36, 36, 49, 49, 49, 49, 64, 64, 64, 81, 81, 81, 81, 100, 100, 100, 121, 121, 121, 121, 121, 144, 144, 144, 144, 169, 169, 169, 169, 169, 196, 196, 196, 196, 196, 216, 216, 216, 225, 256, 256, 256, 256, 256, 256, 289, 289, 289, 289

Offset: 1

Author

Zak Seidov, Oct 10 2008

Keywords

• nonn

Comments

a(n) = min(A145445(n), A145446(n) )= min ([A104103(n)]^2, [A104147(n)]^3)

Crossrefs

A104103, A104147, A145445, A145446

Programs

Mathematica

Table[Min[{Ceiling[Prime[n]^(1/3)]^3,Ceiling[Prime[n]^(1/2)]^2}],{n,100}]