|
|
A046505
|
|
Primes with multiplicative persistence value 5.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|