Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #20 Feb 23 2024 07:27:39
%S 528,825,1561,1651,4064,4604,5346,5795,5975,6435,15092,15732,21252,
%T 23751,25212,29051,34536,38115,39325,39516,51183,52393,53295,53768,
%U 59235,61593,63543,64328,69368,70577,77507,81558,82346,85518,86396
%N Non-palindromic solutions to sigma(Rev(n)) = sigma(n).
%H Donovan Johnson, <a href="/A085329/b085329.txt">Table of n, a(n) for n = 1..1000</a>
%F Solutions to [A000203(x) = A000203(A004086(x))] && [A004086(n) <> n].
%e sigma(528) = sigma(825) = 1488.
%t nd[x_, y_] := 10*x+y tn[x_] := Fold[nd, 0, x] red[x_] := Reverse[IntegerDigits[x]] Do[s=DivisorSigma[1, n]; s1=DivisorSigma[1, tn[red[n]]]; If[Equal[s, s1]&&!Equal[n, tn[red[n]]], Print[{n, s}]], {n, 1, 1000000}]
%t srnQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn];idn!=ridn && DivisorSigma[1,n]==DivisorSigma[1,FromDigits[ridn]]]; Select[Range[ 100000], srnQ] (* _Harvey P. Dale_, Oct 25 2011 *)
%Y Cf. A000203, A004086, A062895.
%K base,nonn
%O 1,1
%A _Labos Elemer_, Jul 04 2003