OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
24 and 42 are members as 24 and 42 each have 8 divisors but with different prime signatures.
MATHEMATICA
psQ[n_]:=Sort[Transpose[FactorInteger[n]][[2]]]!=Sort[Transpose[ FactorInteger[FromDigits[Reverse[IntegerDigits[n]]]]][[2]]]; ndQ[n_]:= DivisorSigma[0, n]==DivisorSigma[0, FromDigits[Reverse[ IntegerDigits[ n]]]]; Select[Range[5000], psQ[#]&&ndQ[#]&] (* Harvey P. Dale, Nov 11 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ray Chandler, Aug 09 2003
STATUS
approved