|
%I #5 Oct 15 2013 22:31:26
%S 4,4,3,4,4,3,3,4,3,5,3,4,3,5,3,4,4,4,4,3,4,5,5,3,4,4,3,4,3,3,4,4,4,5,
%T 5,4,4,3,4,3,5,4,4,4,4,4,4,5,4,4,4,4,3,5,4,3,5,4,3,4,5,4,5,4,4,4,4,4,
%U 4,5,4,4,4,6,4,4,4,5,4,4,4,4,4,4,3,4,4,4,4,4,5,4,4,6,4,4,4,4,4,5,4,4,4,4,4
%N a(n)=A073259[A000040(n)]; Length of FixedPointList started with n-th prime and leading to corresponding composite number.
%F See Program.
%e a=10,p(10)=29, list={29,40,42,43,44}.
%t lfp[x_] := Length[FixedPointList[x+PrimePi[ # ]+1&, x]]-1 Table[lfp[Prime[w]]-1, {w, 1, 128}]
%Y Cf. A002808, A073259.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 29 2002
|
