%I #2 Mar 30 2012 17:30:30
%S 3,14,5,14,41,49,29,23,131,53,17,7,25,28,47,53,134,25,79,95,47,46,28,
%T 7,19,5,85,86,541,47,104,314,25,115,113,5,46,25,67,71,142,226,5,53,95,
%U 304,14,106,85,202
%N Smallest number not a power of two whose reversal of its n-th power is a prime.
%t Do[ k = 1; While[ Mod[ k, 10 ] == 0 || IntegerQ[ Log[ 2, k ] ] || ! PrimeQ[ ToExpression[ StringReverse[ ToString[ k^n ] ] ] ], k++ ]; Print[ k ], {n, 1, 50} ]
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
|