A349279 Fixed points of A349278.
1, 2, 3, 4, 5, 6, 7, 8, 9, 24, 45, 8643024
Offset: 1
Examples
24 is a term because A349278(24) = 4*(4+2) = 4*6 = 24.
Programs
-
Mathematica
f[n_] := Times @@ Accumulate @ Reverse @ IntegerDigits[n]; Select[Range[100], f[#] == # &] (* Amiram Eldar, Nov 13 2021 *)
-
Python
from math import prod from itertools import accumulate def ok(n): return n == (0 if n%10==0 else prod(accumulate(map(int, str(n)[::-1])))) print([k for k in range(1, 10**7) if ok(k)]) # Michael S. Branicky, Nov 13 2021
Comments