A046505 Primes with multiplicative persistence value 5.

769, 967, 1697, 2777, 3637, 3673, 4483, 6197, 6337, 6373, 6719, 6733, 6779, 6791, 6917, 6971, 6977, 7559, 7691, 7727, 8443, 8681, 8861, 9677, 9767, 12379, 12739, 12973, 13297, 13367, 13729, 13763, 14779, 14797, 14843, 17239, 17293, 17497

Offset: 1

Author

Patrick De Geest, Sep 15 1998

Keywords

• nonn
• base

Examples

			769 -> [ 378 ][ 168 ][ 48 ][ 32 ][ 6 ] -> one digit in five steps.
		

Links

• Daniel Mondot, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
• Eric Weisstein's World of Mathematics, Multiplicative Persistence

Crossrefs

Intersection of A000040 and A046514.

Cf. A046500.

Programs

Mathematica

mp5Q[n_]:=Length[NestWhileList[Times@@IntegerDigits[#]&,n,#>9&]]==6; Select[ Prime[Range[2100]],mp5Q] (* Harvey P. Dale, Dec 30 2019 *)