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 A070565 #18 Jul 22 2025 18:19:45
%S A070565 0,0,0,0,0,0,0,0,0,0,10,10,10,10,10,10,10,10,10,10,20,19,18,17,16,15,
%T A070565 14,13,12,11,30,28,26,24,22,20,18,16,14,12,40,37,34,31,28,25,22,19,16,
%U A070565 13,50,46,42,38,34,30,26,22,18,14,60,55,50,45,40,35,30,25,20,15,70,64,58
%N A070565 n - product of digits of n.
%H A070565 Robert Price, <a href="/A070565/b070565.txt">Table of n, a(n) for n = 0..10000</a>
%e A070565 a(20) = 20 - 2*0 = 20, a(22) = 22 - 2*2 = 18.
%t A070565 Table[n - Times @@ IntegerDigits[n], {n, 0, 75}]
%o A070565 (PARI) for(n=1,100,s=ceil(log(n)/log(10)); print1(n-prod(i=0,s-1,floor(n/10^i*1.)-10*floor(n/10^(i+1)*1.)),", "))
%o A070565 (PARI) a(n) = if (n==0, 0, n - vecprod(digits(n))); \\ _Michel Marcus_, Jul 22 2025
%Y A070565 Cf. A007954, A062329.
%K A070565 base,look,nonn
%O A070565 0,11
%A A070565 _N. J. A. Sloane_, May 07 2002
%E A070565 More terms from _Benoit Cloitre_ and _Robert G. Wilson v_, May 09 2002