%I #13 Aug 26 2020 02:56:19
%S 41,2141,2251,3251,3361,3581,3691,4253,4363,4583,5693,8147,9257,9587,
%T 9697,46301,46601,46901,47111,47711,47911,48121,48221,48821,49031,
%U 49331,49531,49831,66103,66403,67213,68023,69233,69833,400051,409951,414461
%N Non-palindromic primes which on subtracting their reversal gives perfect cubes.
%H Amiram Eldar, <a href="/A080178/b080178.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 41 because 41-14 = 27 which is a perfect cube.
%t okQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn];idn!=ridn&&IntegerQ[Power[n-FromDigits[ridn], (3)^-1]]]
%t Select[Prime[Range[35000]],okQ] (* _Harvey P. Dale_, Mar 08 2011 *)
%Y Cf. A000578, A004086, A080177.
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Mar 16 2003