|
|
A115673
|
|
Brilliant numbers (A078972) whose digit reversal is a cube.
|
|
2
|
|
|
10, 70597, 76121, 211591, 291149, 616571, 7272901, 57337417, 378806833, 789116813, 823405771, 888373133, 1692598807, 1939045681, 4836390103, 15291850411, 33665303431, 37060704397, 44784187919, 46061286319, 52604613989, 52625529791, 52651506241, 57380319289
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
76121=163*467 is brilliant and 12167=23^3.
|
|
MATHEMATICA
|
bnQ[n_]:=Module[{f=Transpose[FactorInteger[n]]}, Total[f[[2]]]==2&&Length[Union[ IntegerLength[f[[1]]]]]==1]; Join[{10}, Select[Union[ FromDigits[ Reverse[ IntegerDigits[#]]]&/@ (Range[5000]^3)], bnQ]] (* Harvey P. Dale, Jun 12 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|