OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
946=T(43) and 649=11*59 is brilliant.
MATHEMATICA
bnoQ[n_]:=Module[{f=Transpose[FactorInteger[n]][[1]]}, PrimeOmega[n] == 2 && IntegerLength[f[[1]]]==IntegerLength[f[[2]]]]; Select[Accumulate[Range[3000]], bnoQ[FromDigits[Reverse[IntegerDigits[#]]]]&] (* Harvey P. Dale, Feb 21 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved