[go: up one dir, main page]

login
A306958
If the decimal expansion of n is d_1 ... d_k, a(n) = Sum d_i!*binomial(10,d_i).
7
1, 10, 90, 720, 5040, 30240, 151200, 604800, 1814400, 3628800, 11, 20, 100, 730, 5050, 30250, 151210, 604810, 1814410, 3628810, 91, 100, 180, 810, 5130, 30330, 151290, 604890, 1814490, 3628890, 721, 730, 810, 1440, 5760, 30960, 151920, 605520
OFFSET
0,2
COMMENTS
Kiss found all the finite cycles under iteration of this map. There is one each of lengths 2, 4, 26, and 39. See A306959-A306962.
REFERENCES
P. Kiss, A generalization of a problem in number theory, Math. Sem. Notes Kobe Univ., 5 (1977), no. 3, 313-317. MR 0472667 (57 #12362).
LINKS
P. Kiss, A generalization of a problem in number theory, [Hungarian], Mat. Lapok, 25 (No. 1-2, 1974), 145-149.
H. J. J. te Riele, Iteration of number-theoretic functions, Nieuw Archief v. Wiskunde, (4) 1 (1983), 345-360. See Example I.1.d.
EXAMPLE
The map f sends 12 to 100 to 12. This is the unique cycle of length 2.
MATHEMATICA
a[n_] := Total[Binomial[10, #]*#! & /@ IntegerDigits[n]]; Array[a, 40, 0] (* Amiram Eldar, Mar 18 2019 *)
CROSSREFS
Cf. A306957.
For trajectory of k under repeated application of f, see: A306959 and A306960 (k=1), A306964 (k=2), A306961 (k=3), A306962 (k=4).
Sequence in context: A202576 A201723 A228418 * A306957 A319893 A319874
KEYWORD
nonn,look,base
AUTHOR
N. J. A. Sloane, Mar 18 2019
STATUS
approved