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

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

Example

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

Mathematica

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

Crossrefs

Intersection of A000040 and A046514.

Cf. A046500.

Sequence in context: A290271 A206711 A308789 * A229854 A217495 A216646

Adjacent sequences: A046502 A046503 A046504 * A046506 A046507 A046508

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1998

Status

approved