login
a(n)=A073259[A000040(n)]; Length of FixedPointList started with n-th prime and leading to corresponding composite number.
1

%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