The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.

(Magma) pers:=func<n, e|&*[c^e:c in Intseq(n)]>; a:=[0]; for n in [2..100] do m:=1; k:=n; while not pers(k, 9) in {0, 1} do k:=pers(k, 9); m:=m+1; end while; Append(~a, m); end for; a; // Marius A. Burtea, Jan 13 2020