A115673 Brilliant numbers (A078972) whose digit reversal is a cube.
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
Examples
76121=163*467 is brilliant and 12167=23^3.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Extensions
a(7)-a(20) from Donovan Johnson, Mar 10 2010
More terms from Harvey P. Dale, Jun 12 2014