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

41, 2141, 2251, 3251, 3361, 3581, 3691, 4253, 4363, 4583, 5693, 8147, 9257, 9587, 9697, 46301, 46601, 46901, 47111, 47711, 47911, 48121, 48221, 48821, 49031, 49331, 49531, 49831, 66103, 66403, 67213, 68023, 69233, 69833, 400051, 409951, 414461

Offset: 1

Author

Shyam Sunder Gupta, Mar 16 2003

Keywords

• base
• nonn

Examples

			a(1) = 41 because 41-14 = 27 which is a perfect cube.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000578, A004086, A080177.

Programs

Mathematica

okQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn];idn!=ridn&&IntegerQ[Power[n-FromDigits[ridn], (3)^-1]]]
Select[Prime[Range[35000]],okQ]  (* Harvey P. Dale, Mar 08 2011 *)