OFFSET
1,1
COMMENTS
The perfect numbers containing a 0 digit are all in this sequence.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..30 (terms < 10^13)
EXAMPLE
MATHEMATICA
Select[Range[10^6], DivisorSigma[1, #] - Times @@ IntegerDigits[#] == 2 # &] (* Amiram Eldar, Jan 18 2020 *)
PROG
(PARI) isok(n) = my(d=digits(n)); sigma(n) - n - vecprod(d) == n; \\ Michel Marcus, Jan 18 2020
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Scott R. Shannon, Jan 09 2020
EXTENSIONS
a(13)-a(14) from Michel Marcus, Jan 18 2020
a(15)-a(26) from Giovanni Resta, Jan 18 2020
STATUS
approved