A306961 Trajectory of 3 under repeated application of x -> A306958(x).

3, 720, 604891, 5599451, 7353370, 1242001, 5242, 35460, 187201, 2419311, 3634680, 2123281, 1815410, 1849711, 6053070, 786963, 6351120, 182271, 2419400, 3638982, 7410330, 611292, 3780200, 2420013, 5952, 3689370, 6200641, 307542, 640891, 5599451, 7353370, 1242001, 5242, 35460, 187201, 2419311, 3634680, 2123281, 1815410, 1849711

Offset

1,1

Comments

At the third step the trajectory enters a cycle of length 26: (5599451, 7353370, 1242001, 5242, 35460, 187201, 2419311, 3634680, 2123281, 1815410, 1849711, 6053070, 786963, 6351120, 182271, 2419400, 3638982, 7410330, 611292, 3780200, 2420013, 5952, 3689370, 6200641, 307542, 640891).

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

Table of n, a(n) for n=1..40.

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.

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Mathematica

a[n_]:=Total[Binomial[10, #]*#!&/@IntegerDigits[n]]; NestWhileList[a, 3, UnsameQ, All] (* Ray Chandler, Nov 30 2023 *)

Crossrefs

Cf. A306957, A306958, A306959, A306960, A306962.

Sequence in context: A308323 A276455 A231604 * A059120 A300947 A013826

Adjacent sequences: A306958 A306959 A306960 * A306962 A306963 A306964

Keyword

nonn,base

Author

N. J. A. Sloane, Mar 18 2019

Status

approved