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,1

Links

Daniel Mondot, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Multiplicative Persistence

Example

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

Mathematica

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

Crossrefs

Intersection of A000040 and A046513.

Cf. A046500.

Sequence in context: A108255 A152715 A139654 * A142542 A142127 A142831

Adjacent sequences: A046501 A046502 A046503 * A046505 A046506 A046507

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1998

Status

approved