|
| |
|
|
A096972
|
|
Number of preimages of n (or immediate predecessors) under map f(k) = k + (product of nonzero digits of k).
|
|
2
| |
|
|
0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 2, 0, 2, 0, 2, 0, 2, 0, 1, 0, 2, 1, 1, 0, 2, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 2, 0, 0, 1, 1, 0, 2, 1, 1, 1, 0, 0, 2, 0, 0, 0, 1, 2, 1, 0, 1, 0, 1, 0, 2, 0, 0, 1, 2, 1, 1, 0, 1, 0, 0, 0, 2, 1, 0, 1, 1, 0, 2, 1, 0, 0, 0, 1, 2, 0, 2, 1, 0, 0, 1, 0, 1, 1, 0, 0, 2, 1, 1, 1, 3, 0, 2, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,12
|
|
|
MATHEMATICA
| f[n_] := Block[{s = Sort[ IntegerDigits[ n]]}, While[ s[[1]] == 0, s = Drop[s, 1]]; n + Times @@ s]; t = Table[0, {111}]; Do[ t[[f [n]]]++, {n, 111}]; Table[ t[[n]], {n, 105}]
|
|
|
CROSSREFS
| Cf. A063108, A096347, A063425, A096922, A096923, A096924, A096925, A096926, A096927, A096928, A096929, A096930, A096931.
Sequence in context: A174479 A172444 A026611 * A101227 A021499 A176742
Adjacent sequences: A096969 A096970 A096971 * A096973 A096974 A096975
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 16 2004
|
| |
|
|
