A046247 Numbers n such that n^3 is palindromic in base 13.
0, 1, 2, 14, 170, 183, 2198, 2380, 28562, 28731, 30772, 371294, 373660, 399868, 4826810, 4829007, 4855540, 5198116, 62748518, 62779276, 63119980, 67575340, 815730722, 815759283, 816104212, 820557700, 878479252
Offset: 1
Links
- Patrick De Geest, World!Of Numbers, Palindromic cubes in bases 2 to 17.
Crossrefs
Cf. A046248.
Programs
-
Mathematica
For[i = 1, i < 1000000, i++, tmp = IntegerDigits[i^3, 13]; If[tmp == Reverse[tmp], Print[i]];]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006 *) Select[Range[0, 88*10^7], PalindromeQ[IntegerDigits[#^3, 13]] &] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 05 2017 *)
Extensions
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006