|
%I #5 Oct 15 2013 22:31:33
%S 1,2,1,2,1,2,2,1,2,2,1,2,2,1,2,2,2,1,2,2,2,1,2,2,1,2,2,2,1,2,2,2,2,1,
%T 2,2,2,1,2,2,2,1,2,2,2,2,1,2,2,2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,1,2,2,2,
%U 2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,2,1,2,2,2,2,2
%N Occurrences of value=n in sequence A076370.
%e Observe that one value=1 is followed by 1,2,3,4,5,.. values =2. A076370[x]=5 holds once, =7 is satisfied twice.
%t q[x_] := Apply[Times, Table[Prime[j], {j, 1, x}]] Table[Min[Flatten[Position[Table[Sign [q[j]-q[m]/q[j]], {j, 1, m}], 1]]], {m, 1, 250}] Table[Count[%, j], {j, 1, 250}]
%Y Cf. A002110, A076370.
%K nonn
%O 1,2
%A _Labos Elemer_, Oct 14 2002
|
