Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A115668
Brilliant numbers (A078972) whose digit reversal is a square.
2
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,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