This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A145746 #24 Jun 10 2025 16:26:32
%S A145746 6,11,778,11735953,33155353153393,115399371137353,3355195531177393,
%T A145746 3515999553551113,15751375595175193,19779913155711913,
%U A145746 773153371177599193,1111111111111111111
%N A145746 Numbers k such that sum of the proper divisors of k is equal to the product of the digits of k.
%C A145746 All repunit primes are in the sequence. So A004022 is a subsequence of this sequence.
%C A145746 All terms beyond a(3) are coprime to 6, and of course all terms are zerofree (A052382). - _Charles R Greathouse IV_, Nov 03 2014
%e A145746 sigma(11735953) = sigma(883*13291) = 11735953 + (13291 + 883 + 1) = 11735953 + 1*1*7*3*5*9*5*3 so 11735953 is in the sequence.
%t A145746 Do[If[DivisorSigma[1,n]-n==Apply[Times,IntegerDigits[n]],Print[n]], {n,50000000}]
%t A145746 Select[Range[800],DivisorSigma[1,#]-#==Times@@IntegerDigits[#]&] (* _Harvey P. Dale_, Dec 06 2024 *)
%o A145746 (PARI) is(n)=my(d=digits(n),p=prod(i=1,#d,d[i])); p>0 && p+n==sigma(n) \\ _Charles R Greathouse IV_, Nov 03 2014
%Y A145746 Subsequence of A052382.
%Y A145746 Cf. A004022.
%K A145746 base,more,nice,nonn
%O A145746 1,1
%A A145746 _Farideh Firoozbakht_, Oct 27 2008
%E A145746 Definition clarified by _Harvey P. Dale_, Dec 06 2024
%E A145746 a(5)-a(12) from _Max Alekseyev_, Jun 10 2025