login
A073259(n)=3: the length of iteration transient leading to n-th composite number equals 3.
2

%I #9 Nov 16 2017 15:52:22

%S 4,5,8,9,13,16,17,18,22,23,24,27,31,35,36,40,41,46,47,56,64,69,70,71,

%T 89,90,91,92,93,94,95,103,109,110,111,112,113,146,147,161,162,163,171,

%U 172,173,174,196,240,241,242,243,261,262,263,277,438,439,440,1137,1138

%N A073259(n)=3: the length of iteration transient leading to n-th composite number equals 3.

%F See Program.

%e The sequence is most probably complete. a(1)=4: the fixed point list from m=a(1) to composite[m] is: {4,7,9}, the length is 3; last term is a(64)=1142 with transient list {1142,1332,1360}.

%t lfp[x_] := Length[FixedPointList[x+PrimePi[ # ]+1&, x]]-1 Do[s=lfp[n]; If[Equal[s, 3], Print[n]], {n, 1, 10000000}]

%Y Cf. A002808, A073259.

%K fini,full,nonn

%O 1,1

%A _Labos Elemer_, Jul 29 2002