1,2

There is no further term up to 10^10. - Farideh Firoozbakht, Jan 20 2008

There is no further term up to 10^13. - Giovanni Resta, Jul 13 2015

Table of n, a(n) for n=1..5.

sigma(2556) = 6552 = reversal(2556), so 2556 belongs to the sequence.

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 *)

Sequence in context: A296126 A188546 A158732 * A158736 A262456 A161486

Adjacent sequences: A069213 A069214 A069215 * A069217 A069218 A069219

base,nonn

Joseph L. Pe, Apr 11 2002

approved