|
%I #8 May 03 2018 14:38:31
%S 16,32,125,128,196,361,784,1024,1369,1444,1600,1681,3844,7225,7921,
%T 9025,9409,11236,14161,18496,19321,19600,36100,37249,38416,70756,
%U 73441,75076,76729,78400,78961,97969,99856,102400,105625,107584,109561,111556
%N Perfect powers whose digit reversal is prime.
%C Conjectures: (1) Sequence is infinite. (2) For every n there are infinitely many members of the form k^n.
%H Harvey P. Dale, <a href="/A088112/b088112.txt">Table of n, a(n) for n = 0..470</a>(* No further terms through 32 million *)
%t Select[Range[120000],GCD@@FactorInteger[#][[All,2]]>1 && PrimeQ[ IntegerReverse[ #]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 03 2018 *)
%K base,nonn
%O 0,1
%A _Amarnath Murthy_, Sep 25 2003
%E Corrected and extended by _Ray Chandler_, Oct 14 2003
|
