A114927 Numbers n such that sigma(n)=3*reversal(n).
41, 291552, 692133, 2946762, 8231796, 21732508611, 27892659612
Offset: 1
Programs
-
Mathematica
Do[If[DivisorSigma[1, n] == 3*FromDigits[Reverse[IntegerDigits[n]]], Print[n]], {n, 20000000}]
Extensions
a(6)-a(7) from Donovan Johnson, Dec 21 2008
Comments