OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
EXAMPLE
149 -> 1*4*9 = 36 -> 3*6 = 18 -> 1*8 = 8 is a Fibonacci number.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Extended (and corrected) by Patrick De Geest, Jun 15 1999
STATUS
approved