A080179 Numbers which on adding their reversal gives perfect cubes.

4, 122, 221, 320, 1030, 1120, 1210, 1300, 67199, 68189, 69179, 77198, 78188, 79178, 87197, 88187, 89177, 97196, 98186, 99176, 1000300, 1010200, 1020100, 1030000, 100409738, 100508738, 100607738, 100706738, 100805738, 100904738, 101409638

Offset

1,1

Comments

For entries not ending in zero, their reversal is also present.

Links

Table of n, a(n) for n=1..31.

Example

a(2)=122 because 122+221=343 which is 7^3.

Mathematica

Do[ If[ IntegerQ[(n + FromDigits[ Reverse[ IntegerDigits[n]]]) ^(1/3)], Print[n]], {n, 1, 101508638}]

Crossrefs

Sequence in context: A169972 A360664 A364948 * A268050 A268006 A144993

Adjacent sequences: A080176 A080177 A080178 * A080180 A080181 A080182

Keyword

base,nonn

Author

Shyam Sunder Gupta, Mar 16 2003

Extensions

Edited and extended by Robert G. Wilson v, Mar 16 2003

Status

approved