|
%I
%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.
%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] (* From Harvey P. Dale, Mar 8 2011 *)
%K base,nonn
%O 1,1
%A Shyam Sunder Gupta (guptass(AT)rediffmail.com), Mar 16 2003
|
