OFFSET
1,1
EXAMPLE
1843=19*97 is brilliant and 3481=59^2 is a square.
MATHEMATICA
brilQ[n_]:=Module[{fin=FactorInteger[n]}, Total[Transpose[fin][[2]]]==2&& Length[Union[IntegerLength[Transpose[fin][[1]]]]]==1]
brilnos=Select[Range[1700000], brilQ];
Select[brilnos, IntegerQ[Sqrt[FromDigits[Reverse[IntegerDigits[#]]]]]&] (* Harvey P. Dale, Feb 06 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved