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 A028891 #13 Mar 20 2023 14:12:01
%S A028891 1,2,3,5,8,11,12,13,15,18,21,24,26,29,31,34,35,36,37,38,42,43,46,49,
%T A028891 51,53,57,62,63,64,66,67,73,75,76,77,79,81,83,88,92,94,97,99,111,112,
%U A028891 113,115,118,121,124,126,129,131,134,135,136,137,138,142,143,146,149,151
%N A028891 Iterated product of digits of n is a positive Fibonacci number.
%H A028891 Harvey P. Dale, <a href="/A028891/b028891.txt">Table of n, a(n) for n = 0..1000</a>
%e A028891 149 -> 1*4*9 = 36 -> 3*6 = 18 -> 1*8 = 8 is a Fibonacci number.
%t A028891 ipdfQ[n_]:=Module[{pd=NestWhile[Times@@IntegerDigits[#]&,n, #>9&]}, MemberQ[ {1,2,3,5,8}, pd]]; Select[Range[200],ipdfQ] (* _Harvey P. Dale_, Mar 10 2016 *)
%Y A028891 Cf. A031347, A028890, A028841.
%K A028891 nonn,base
%O A028891 0,2
%A A028891 _N. J. A. Sloane_
%E A028891 Extended (and corrected) by _Patrick De Geest_, Jun 15 1999