%I A080179
%S A080179 4,122,221,320,1030,1120,1210,1300,67199,68189,69179,77198,78188,79178,
%T A080179 87197,88187,89177,97196,98186,99176,1000300,1010200,1020100,1030000,
%U A080179 100409738,100508738,100607738,100706738,100805738,100904738,101409638
%N A080179 Numbers which on adding their reversal gives perfect cubes.
%C A080179 For entries not ending in zero, their reversal is also present.
%e A080179 a(2)=122 because 122+221=343 which is 7^3.
%t A080179 Do[ If[ IntegerQ[(n + FromDigits[ Reverse[ IntegerDigits[n]]]) ^(1/3)], 
               Print[n]], {n, 1, 101508638}]
%Y A080179 Sequence in context: A071129 A033934 A144508 this_sequence A144993 A064681 
               A005936
%Y A080179 Adjacent sequences: A080176 A080177 A080178 this_sequence A080180 A080181 
               A080182
%K A080179 base,nonn
%O A080179 1,1
%A A080179 Shyam Sunder Gupta (guptass(AT)rediffmail.com), Mar 16 2003
%E A080179 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 16 
               2003