OFFSET
1,2
EXAMPLE
Observe that one value=1 is followed by 1,2,3,4,5,.. values =2. A076370[x]=5 holds once, =7 is satisfied twice.
MATHEMATICA
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 14 2002
STATUS
approved