login
A046504
Primes with multiplicative persistence value 4.
3
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
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
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved