OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..8811 (terms below 10^10, terms 1..300 from Paolo P. Lava)
EXAMPLE
Sum of divisors of 30: 1+2+3+5+6+10+15+30=72; sum of reversals of divisors of 30: 1+2+3+5+6+1+51+3=72. Therefore 30 belongs to the sequence.
MAPLE
isA080716 := proc(n)
simplify(A069192(n) = numtheory[sigma](n)) ;
end proc:
for n from 1 to 1000 do
if isA080716(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Sep 09 2015
MATHEMATICA
rev[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Select[Range[10^4], Apply[Plus, Map[rev, Divisors[ # ]]] == DivisorSigma[1, # ] &]
Select[Range[1200], Total[IntegerReverse/@Divisors[#]]==DivisorSigma[1, #]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 07 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Mar 05 2003
STATUS
approved