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,1

Links

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

Example

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

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 *)

Crossrefs

Cf. A000578, A004086, A080177.

Sequence in context: A275501 A275398 A275263 * A353113 A241374 A233095

Adjacent sequences: A080175 A080176 A080177 * A080179 A080180 A080181

Keyword

base,nonn

Author

Shyam Sunder Gupta, Mar 16 2003

Status

approved