This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A083647 #17 Sep 02 2024 19:34:05
%S A083647 0,1,1,2,2,2,1,2,3,3,2,2,2,3,4,3,4,2,3,3,2,3,3,3,2,2,2,4,2,3,3,3,2,4,
%T A083647 3,2,3,2,4,4,4,2,3,2,3,3,3,3,4,3,4,2,2,2,1,4,4,2,4,3,5,3,2,3,3,4,3,3,
%U A083647 5,4,3,5,3,3,3,4,3,3,2,2,3,3,4,2,3,2,3,3,4,3,5,3,2,3,4,3,4,3,4,2,3,5,4,4,3
%N A083647 For primes p: Number of steps to reach 2 when iterating f(p) = greatest prime divisor of p-1.
%C A083647 For smallest prime that requires n steps to reach 2 cf. A082449.
%H A083647 Ruud H.G. van Tol, <a href="/A083647/b083647.txt">Table of n, a(n) for n = 1..10000</a>
%e A083647 59 is the 17th prime and takes four steps to reach 2 (59 -> 29 -> 7 -> 3 -> 2), so a(17) = 4.
%t A083647 Table[Length[NestWhileList[FactorInteger[#-1][[-1,1]]&,Prime[n], #!=2&]]-1,{n,110}] (* _Harvey P. Dale_, Feb 27 2012 *)
%o A083647 (PARI) {forprime(p=2,571,q=p; c=0; while(q>2,fac=factor(q-1); q=fac[matsize(fac)[1],1]; c++); print1(c,","))}
%Y A083647 Cf. A006530, A023503, A082449.
%K A083647 nonn
%O A083647 1,4
%A A083647 _Klaus Brockhaus_, May 01 2003