A306960 Trajectory of 1 under repeated application of x -> A306958(x).

1, 10, 11, 20, 91, 3628810, 3780821, 4234421, 16030, 151932, 3659870, 6230161, 303231, 2261, 151390, 3659781, 6230170, 756822, 2600820, 1965783, 6230170, 756822, 2600820, 1965783, 6230170, 756822, 2600820, 1965783, 6230170, 756822, 2600820

Offset

1,2

Comments

The trajectory converges to the cycle of length 4 given in A306959.

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..31.

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,1).

Maple

a:= proc(n) option remember; `if`(n=1, 1, add(
      d!*binomial(10, d), d=convert(a(n-1), base, 10)))
    end:
seq(a(n), n=1..30);  # Alois P. Heinz, Nov 28 2023

Mathematica

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

Crossrefs

Cf. A306958, A306959, A306961, A306962, A306964.

Sequence in context: A087486 A284375 A102626 * A178361 A014418 A317204

Adjacent sequences: A306957 A306958 A306959 * A306961 A306962 A306963

Keyword

nonn,base,easy

Author

N. J. A. Sloane, Mar 18 2019

Extensions

a(1)=1 inserted by Georg Fischer, Nov 28 2023

Status

approved