|
|
A233465
|
|
Numbers n such that sigma(n) = reversal(2n).
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
rev[n_] := FromDigits@ Reverse@ IntegerDigits@n; Select[Range[2*10^6], DivisorSigma[1, #] == rev[2*#] &] (* Giovanni Resta, Mar 15 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more,bref
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|