%I #7 Feb 05 2014 20:18:05

%S 1,6,9,12,15,18,21,24,28,31,34,17,41,11,47,50,23,57,60,63,67,70,73,76,

%T 32,83,86,36,93,97,100,103,106,109,112,115,119,123,127,130,133,137,52,

%U 143,147,150,153,157,160,59,167,170,26,177,180,183,187,191,68,197,5,203

%N Integers out of lexicographic order in A097104 in order of their presentation.

%t lst = Table[n, {n, 1000}]; f[m_] := (lst = Drop[ Insert[ lst, lst[[m]], Prime[m] + 1], {m, m}]); Do[ f[n], {n, 168}]; a = 0; b = {}; Do[c = lst[[n]]; If[c < a, AppendTo[b, c], a = c], {n, 500}]; Take[b, 61]

%Y Cf. A097104, A100353.

%K nonn

%O 1,2

%A _Leroy Quet_ and _Robert G. Wilson v_, Nov 18 2004