A115668 Brilliant numbers (A078972) whose digit reversal is a square.

4, 9, 10, 121, 169, 961, 1273, 1843, 10201, 10609, 12769, 16171, 44521, 48361, 48613, 94249, 96721, 106009, 108853, 121879, 129307, 445051, 526567, 613927, 1026169, 1042441, 1062961, 1216609, 1442401, 1692601

Offset: 1

Author

Giovanni Resta, Jan 31 2006

Keywords

• nonn
• base

Examples

			1843=19*97 is brilliant and 3481=59^2 is a square.
		

Crossrefs

Cf. A078972, A115667, A115669.

Programs

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 *)