|
|
A046247
|
|
Numbers n such that n^3 is palindromic in base 13.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006
|
|
STATUS
|
approved
|
|
|
|