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 A073322 #7 Oct 15 2013 22:31:26
%S A073322 3,4,3,3,4,4,4,4,3,3,4,4,3,3,4,4,3,4,4,4,4,4,3,3,4,4,3,4,4,4,3,4,4,4,
%T A073322 4,5,4,4,3,4,4,5,4,4,3,4,4,4,3,3,4,4,4,5,4,4,5,4,4,4,4,4,4,4,3,3,3,3,
%U A073322 3,3,4,4,5,4,4,4,5,4,4,3,3,3,4,5,4,4,4,4,4,4,4,4,4,5,4,5,4,4,4,5,4,4,4,5,4
%N A073322 a(n)=A073259[A002808(n)] and a(0)=3; Length of FixedPointList started with n-th nonprime and leading to corresponding composite number= c[c(n)].
%F A073322 See Program.
%e A073322 list to n=0 corresponding to c[0]=1: {1,2,3,4} started with first nonprime ended with first composite; n=10: composite[10]=18, a(10)=length[{16,26,28}]=3.
%t A073322 c[x_] := FixedPoint[x+c[ # ]+1&, x] lfp[x_] := Length[FixedPointList[x+c[ # ]+1&, x]]-1 Table[lfp[c[w]]-1, {w, 1, 128}]
%Y A073322 Cf. A002808, A073259, A073260.
%K A073322 nonn
%O A073322 0,1
%A A073322 _Labos Elemer_, Jul 29 2002