A069216 Numbers n such that sigma(n) = reversal(n).
1, 69, 276, 639, 2556
Offset: 1
Examples
sigma(2556) = 6552 = reversal(2556), so 2556 belongs to the sequence.
Programs
-
Mathematica
Do[If[DivisorSigma[1, n] == FromDigits[Reverse[IntegerDigits[n]]], Print[n]], {n, 1, 10^5}] Select[Range[3000],DivisorSigma[1,#]==IntegerReverse[#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 29 2017 *)
Comments