OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
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