OFFSET
1,2
COMMENTS
The perfect numbers containing a 0 digit are all in this sequence.
a(14) > 10^13. - Giovanni Resta, Jan 19 2020
EXAMPLE
MATHEMATICA
Select[Range[10^6], DivisorSigma[1, #] + Times @@ IntegerDigits[#] == 2 # &] (* Amiram Eldar, Jan 18 2020 *)
PROG
(Magma) [k:k in [1..2500000]| k eq &*Intseq(k)+DivisorSigma(1, k)-k]; // Marius A. Burtea, Jan 18 2020
(PARI) isok(n) = my(d=digits(n)); sigma(n) + vecprod(d) == 2*n; \\ Jinyuan Wang, Jan 19 2020
CROSSREFS
KEYWORD
nonn,base,less,more
AUTHOR
Scott R. Shannon, Jan 09 2020
EXTENSIONS
a(12) from Jinyuan Wang, Jan 19 2020
a(13) from Giovanni Resta, Jan 19 2020
STATUS
approved