A233465 Numbers n such that sigma(n) = reversal(2n).
1259196, 1473381
Offset: 1
Programs
-
Mathematica
rev[n_] := FromDigits@ Reverse@ IntegerDigits@n; Select[Range[2*10^6], DivisorSigma[1, #] == rev[2*#] &] (* Giovanni Resta, Mar 15 2014 *)
Comments