A088112 Perfect powers whose digit reversal is prime.
16, 32, 125, 128, 196, 361, 784, 1024, 1369, 1444, 1600, 1681, 3844, 7225, 7921, 9025, 9409, 11236, 14161, 18496, 19321, 19600, 36100, 37249, 38416, 70756, 73441, 75076, 76729, 78400, 78961, 97969, 99856, 102400, 105625, 107584, 109561, 111556
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..471 (no further terms through 32 million)
Programs
-
Mathematica
Select[Range[120000],GCD@@FactorInteger[#][[All,2]]>1 && PrimeQ[ IntegerReverse[ #]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 03 2018 *)
Extensions
Corrected and extended by Ray Chandler, Oct 14 2003
Offset changed by Andrew Howroyd, Sep 22 2024
Comments