|
%I #9 Mar 07 2018 12:44:36
%S 0,1,2,13,145,157,1729,20737,20881,22477,248833,250705,269581,2985985,
%T 2987713,3234829,35831809,35854273,36080785,38817805,429981697,
%U 430002433,430232257,465813517,5159780353,5160049921,5195612305
%N Numbers n such that n^3 is palindromic in base 12.
%H P. De Geest, <a href="http://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%t For[i = 1, i < 1000000, i++, tmp = IntegerDigits[i^3, 12]; If[tmp == Reverse[tmp], Print[i]];]; - Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 13 2006
%t Select[Range[0,52*10^8],IntegerDigits[#^3,12]==Reverse[ IntegerDigits[ #^3,12]]&] (* _Harvey P. Dale_, Mar 07 2018 *)
%Y Cf. A046246.
%K nonn,base
%O 1,3
%A _Patrick De Geest_, May 15 1998
%E More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 13 2006
|
