A028891 Iterated product of digits of n is a positive Fibonacci number.

1, 2, 3, 5, 8, 11, 12, 13, 15, 18, 21, 24, 26, 29, 31, 34, 35, 36, 37, 38, 42, 43, 46, 49, 51, 53, 57, 62, 63, 64, 66, 67, 73, 75, 76, 77, 79, 81, 83, 88, 92, 94, 97, 99, 111, 112, 113, 115, 118, 121, 124, 126, 129, 131, 134, 135, 136, 137, 138, 142, 143, 146, 149, 151

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Examples

			149 -> 1*4*9 = 36 -> 3*6 = 18 -> 1*8 = 8 is a Fibonacci number.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A031347, A028890, A028841.

Programs

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 *)

Extensions

Extended (and corrected) by Patrick De Geest, Jun 15 1999