login
Non-palindromic primes which on subtracting their reversal gives perfect cubes.
1

%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