# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a076371 Showing 1-1 of 1 %I A076371 #5 Oct 15 2013 22:31:33 %S A076371 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 A076371 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 A076371 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 A076371 Occurrences of value=n in sequence A076370. %e A076371 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 A076371 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 A076371 Cf. A002110, A076370. %K A076371 nonn %O A076371 1,2 %A A076371 _Labos Elemer_, Oct 14 2002 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE