login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046512 Numbers with multiplicative persistence value 3. 3
39, 47, 49, 55, 57, 59, 66, 68, 69, 74, 75, 78, 79, 86, 87, 88, 89, 93, 94, 95, 96, 97, 98, 139, 147, 149, 155, 157, 159, 166, 168, 169, 174, 175, 178, 179, 186, 187, 188, 189, 193, 194, 195, 196, 197, 198, 227, 229, 236, 238, 239, 246, 247, 248, 249, 263, 264 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Multiplicative Persistence

EXAMPLE

239 -> [ 54 ][ 20 ][ 0 ] -> one digit in three steps.

MAPLE

mp:= proc(n) option remember;

    if n <= 9 then return 0 fi;

    1+procname(convert(convert(n, base, 10), `*`))

end proc:

select(mp=3, [$1..1000]); # Robert Israel, Feb 12 2019

MATHEMATICA

mp3Q[n_]:=Length[NestWhileList[Times@@IntegerDigits[#]&, n, #>9&]]==4; Select[Range[300], mp3Q] (* Harvey P. Dale, May 23 2015 *)

CROSSREFS

Cf. A003001, A014120, A046503.

Sequence in context: A119028 A252712 A252711 * A143746 A064399 A235151

Adjacent sequences:  A046509 A046510 A046511 * A046513 A046514 A046515

KEYWORD

nonn,base,changed

AUTHOR

Patrick De Geest, Sep 15 1998

EXTENSIONS

Offset corrected by Robert Israel, Feb 12 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 15 22:25 EDT 2019. Contains 328038 sequences. (Running on oeis4.)