A084972 When A058033 first reaches n.

1, 2, 3, 4, 7, 12, 20, 35, 57, 102, 182, 323, 585, 1061, 1943, 3521, 6606

Offset

1,2

Links

Table of n, a(n) for n=1..17.

Mathematica

Primorial[n_] := Product[Prime[i], {i, 1, n}]; f[n_] := Block[{k = 2, p = 1}, While[q = Floor[ Log[2, Primorial[k]]]; q - p != n, k++; p = q]; k - 1]; Table[ f[n], {n, 1, 17}]

Crossrefs

Cf. A058033.

Sequence in context: A261396 A357532 A018148 * A369706 A307673 A141002

Adjacent sequences: A084969 A084970 A084971 * A084973 A084974 A084975

Keyword

nonn

Author

Robert G. Wilson v, May 22 2003

Status

approved