%I #4 Oct 15 2013 22:31:26
%S 4,4,4,3,3,4,4,3,3,4,4,4,3,4,4,3,3,3,4,4,4,3,3,3,4,4,3,4,5,4,3,4,4,4,
%T 3,3,4,4,4,3,3,4,5,4,4,3,3,4,4,4,4,5,4,4,4,3,4,4,4,5,4,4,4,3,4,4,4,4,
%U 3,3,3,4,4,4,4,5,4,4,5,5,4,4,5,4,4,4,4,4,3,3,3,3,3,3,3,4,4,4,5,4,4,4,3,4,5
%N Length of FixedPointList leading to value of n-th composite number.
%F See program below.
%e n=1000000:the list={1000000,1078499,1084157,1084577,1084604,1084605}, its length including initial term is 6, while composite[1000000]=1084605.
%t Table[Length[FixedPointList[w+PrimePi[ # ]+1&, w]]-1, {w, 1, 128}]
%Y Cf. A064814, A002808, A073255-A073264.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 22 2002
|