login
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
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
Sequence in context: A371644 A048832 A225070 * A225720 A013792 A139106
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
EXTENSIONS
a(7)-a(20) from Donovan Johnson, Mar 10 2010
More terms from Harvey P. Dale, Jun 12 2014
STATUS
approved