%I #7 Dec 05 2013 19:56:36
%S 11,19,127,149,181,1289,1361,11369,11681,12197,12401,12601,12809,
%T 13249,13721,14489,15329,16561,16889,17569,17921,19801,110609,114161,
%U 114641,119321,119881,121609,122201,125921,132761,135721,135937,136481,140401
%N Smallest prime of the form 1 followed by a perfect power.
%H Vincenzo Librandi, <a href="/A089773/b089773.txt">Table of n, a(n) for n = 1..5000</a>
%e a(4) = 181: 1 followed by 3^4.
%t Select[ Map[ FromDigits, Join[{1}, IntegerDigits[ # ]] & /@ Union[ Join[{1}, Flatten[ Table[n^i, {n, 2, Sqrt[10^5]}, {i, 2, Log[n, 10^5]}]]]]], PrimeQ[ # ] &]
%Y Cf. A001597.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 23 2003
%E Edited, corrected and extended by _Robert G. Wilson v_, Nov 26 2003
|