The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A263131 Ordinal transform of the multiplicative persistence A031346. 2

%I

%S 1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1,2,3,4,5,

%T 16,17,18,19,6,7,8,9,10,1,20,21,22,11,12,13,14,2,15,3,23,24,16,17,18,

%U 4,19,5,20,6,25,26,21,22,23,24,7,25,8,9,27,28,26,27

%N Ordinal transform of the multiplicative persistence A031346.

%C n is the a(n)-th nonnegative integer having its multiplicative persistence.

%H Alois P. Heinz, <a href="/A263131/b263131.txt">Table of n, a(n) for n = 0..20000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MultiplicativePersistence.html">Multiplicative Persistence</a>

%p m:= n-> mul(i, i=convert(n, base, 10)):

%p p:= n-> `if`(n<10, 0, 1+p(m(n))):

%p b:= proc() 0 end:

%p a:= proc(n) option remember; local t;

%p t:= p(n); b(t):= b(t)+1

%p end:

%p seq(a(n), n=0..100);

%Y Cf. A031346.

%K nonn,look,base

%O 0,2

%A _Alois P. Heinz_, Oct 10 2015

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.

Last modified January 27 05:41 EST 2021. Contains 340455 sequences. (Running on oeis4.)