OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
3481=59^2 is a square and 1843=19*97 is brilliant.
MATHEMATICA
sbnQ[n_]:=Module[{fi=FactorInteger[IntegerReverse[n^2]]}, (Length[fi]==1 && fi[[1, 2]]==2)||(Length[fi]==2&&fi[[All, 2]]=={1, 1})&&Length[Union[ IntegerLength[ fi[[All, 1]]]]]==1]; Select[Range[1300], sbnQ] (* Harvey P. Dale, Mar 23 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved