OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
211 is in the sequence because the set of digits of n {1, 2} equals the set of digits of sigma(211) = 212.
MATHEMATICA
Select[Range[4000], Union[IntegerDigits[DivisorSigma[1, #]]] == Union[ IntegerDigits[#]]&] (* Harvey P. Dale, Dec 29 2015 *)
PROG
(Magma) [n: n in [1..10^5] | Set(Intseq(n)) eq Set(Intseq(SumOfDivisors(n)))];
(PARI) isok(n) = Set(digits(n)) == Set(digits(sigma(n))); \\ Michel Marcus, May 27 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Jan 05 2015
STATUS
approved