OFFSET
1,1
COMMENTS
No more terms through 10^9. - Ryan Propper, Jan 08 2007
a(8) > 10^12. - Giovanni Resta, Oct 28 2012
MATHEMATICA
Do[If[DivisorSigma[1, n] == 3*FromDigits[Reverse[IntegerDigits[n]]], Print[n]], {n, 20000000}]
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Farideh Firoozbakht, Jan 28 2006
EXTENSIONS
a(6)-a(7) from Donovan Johnson, Dec 21 2008
STATUS
approved