A046504 Primes with multiplicative persistence value 4.

277, 379, 397, 467, 557, 647, 677, 727, 739, 773, 787, 877, 887, 937, 1277, 1483, 1489, 1553, 1699, 1747, 1777, 1783, 1787, 1867, 1873, 1877, 1973, 1999, 2267, 2347, 2377, 2399, 2437, 2467, 2473, 2477, 2647, 2683, 2687, 2689, 2699, 2797, 2837, 2861

Offset: 1

Author

Patrick De Geest, Sep 15 1998

Keywords

• nonn
• base

Examples

			277 -> [ 98 ][ 72 ][ 14 ][ 4 ] -> one digit in four steps.
		

Links

• Daniel Mondot, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Multiplicative Persistence

Crossrefs

Intersection of A000040 and A046513.

Cf. A046500.

Programs

Mathematica

pmp4Q[n_]:=Length[NestWhileList[Times@@IntegerDigits[#]&,n,#>9&]]==5; Select[Prime[Range[500]],pmp4Q] (* Harvey P. Dale, Oct 10 2016 *)