|
Search: id: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, 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; listen)
|
|
|
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: A165413 A080573 A006340 this_sequence A106149 A054740 A118458
Adjacent sequences: A076368 A076369 A076370 this_sequence A076372 A076373 A076374
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 14 2002
|
|
|
Search completed in 0.002 seconds
|
