|
| |
|
|
A076371
|
|
Occurrences of value=n in sequence A076370.
|
|
1
| |
|
|
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, 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, 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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
| Cf. A002110, A076370.
Sequence in context: A080573 A186440 A006340 * A175044 A106149 A054740
Adjacent sequences: A076368 A076369 A076370 * A076372 A076373 A076374
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 14 2002
|
| |
|
|
