OFFSET
1,1
COMMENTS
Many patterns can be found, e.g. 3762*10^j, 4125*10^j, 4865*10^j, 5135*10^j, 5875*10^j, 6238*10^j, etc.
EXAMPLE
3762 is in the sequence because sigma(3762) = sigma(10^4-3762) = 9360.
5875 is in the sequence because sigma(5875) = sigma(10^4-5875) = 7488.
MAPLE
with(numtheory): P:=proc(q) local a, n;
for n from 1 to q do a:=10^(ilog10(n)+1)-n;
if n<>a and sigma(n)=sigma(a) then print(n); fi; od; end: P(10^6);
MATHEMATICA
c10Q[n_]:=Module[{c=10^IntegerLength[n]-n}, c!=n&&DivisorSigma[1, n] == DivisorSigma[1, c]]; Select[Range[500000], c10Q] (* Harvey P. Dale, Sep 24 2021 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo P. Lava, Mar 13 2018
STATUS
approved