OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..50
N. J. A. Sloane, The persistence of a number, J. Recreational Math., 6 (1973), 97-98.
Eric Weisstein's World of Mathematics, Multiplicative Persistence.
MATHEMATICA
mper[n_] := Block[{k=0, m=n}, While[m>9, k++; m = Times @@ IntegerDigits@ m]; k]; mxper = {1, 4, 5, 6, 7, 7, 8, 9, 9, 10, 10, 10}; multi[w_] := Total[w]!/Times @@ (w!); a[1]=10; a[n_] := Sum[ Total[ If[ mxper[[n]] == 1 + mper[Times @@ (Range[9]^#)], multi[#], 0] & /@ Permutations[p]], {p, IntegerPartitions[n, {9}, Range[0, n]]}]; Array[a, 12] (* Giovanni Resta, Sep 01 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(8)-a(12) from Donovan Johnson, Mar 30 2010
a(13)-a(24) from Giovanni Resta, Aug 31 2018
STATUS
approved