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 A358352 #23 Nov 20 2022 08:46:08
%S A358352 1,3,26,38,380,1116,12912,95131,342038,3320210,494204209,773089018
%N A358352 a(n) is the smallest number k such that A358351(k) = n.
%H A358352 Rémy Sigrist, <a href="/A358352/a358352.txt">C program</a>
%e A358352 19+sod(19)+pod(19) = 24+sod(24)+pod(24) = 31+sod(31)+pod(31) = 38, and there is no integer < 38 for which function A161351 has 3 preimages, so a(3) = 38.
%t A358352 f[n_] := n + Total[(d = IntegerDigits[n])] + Times @@ d; s = With[{m = 10^7}, BinCounts[Table[f[n], {n, 1, m}], {1, m, 1}]]; FirstPosition[s, #] & /@ Range[0, Max[s]] // Flatten (* _Amiram Eldar_, Nov 19 2022 *)
%o A358352 (PARI) first(n) = my(res = vector(n)); for(i = 1, n, c = i + sumdigits(i) + vecprod(digits(i)); if(c <= n, res[c]++ ) ); res; \\ A358351
%o A358352 lista(nn) = my(v=first(nn)); for (n=0, 20, my(vs = select(x->(x==n), v, 1)); if (#vs, print1(vs[1], ", "), break);); \\ _Michel Marcus_, Nov 20 2022
%o A358352 (C) See Links section.
%Y A358352 Cf. A006064, A007953, A007954, A161351, A358350, A358351.
%K A358352 nonn,base,more
%O A358352 0,2
%A A358352 _Bernard Schott_, Nov 19 2022
%E A358352 a(4)-a(5) from _Michel Marcus_, Nov 19 2022
%E A358352 a(6)-a(9) from _Amiram Eldar_, Nov 19 2022
%E A358352 a(10)-a(11) from _Rémy Sigrist_, Nov 20 2022