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 A046514 #14 Feb 16 2025 08:32:39 %S A046514 679,688,697,769,796,868,886,967,976,1679,1688,1697,1769,1796,1868, %T A046514 1886,1967,1976,2379,2388,2397,2468,2486,2648,2684,2688,2739,2777, %U A046514 2793,2838,2846,2864,2868,2883,2886,2937,2973,3279,3288,3297,3367,3376,3448 %N A046514 Numbers with multiplicative persistence value 5. %H A046514 Robert Israel, <a href="/A046514/b046514.txt">Table of n, a(n) for n = 1..10000</a> %H A046514 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MultiplicativePersistence.html">Multiplicative Persistence</a> %e A046514 2777 -> [ 686 ][ 288 ][ 128 ][ 16 ][ 6 ] -> one digit in five steps. %p A046514 mp:= proc(n) option remember; %p A046514 if n <= 9 then return 0 fi; %p A046514 1+procname(convert(convert(n,base,10),`*`)) %p A046514 end proc: %p A046514 select(mp=5, [$1..4000]); # _Robert Israel_, Feb 12 2019 %Y A046514 Cf. A003001, A014120, A046505. %K A046514 nonn,base %O A046514 1,1 %A A046514 _Patrick De Geest_, Sep 15 1998 %E A046514 Offset corrected by _Robert Israel_, Feb 12 2019