1,1

c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k]; c = c <> ToString[k^n], {n, 1, 30}]

Cf. A090900.

Sequence in context: A059083 A124931 A124932 this_sequence A123027 A100652 A094416

Adjacent sequences: A110039 A110040 A110041 this_sequence A110043 A110044 A110045

nonn

Ryan Propper (rpropper(AT)stanford.edu), Jul 08 2005