A084972 When A058033 first reaches n.

1, 2, 3, 4, 7, 12, 20, 35, 57, 102, 182, 323, 585, 1061, 1943, 3521, 6606, 12297, 23051, 43578, 82296, 155813, 296454, 564839, 1078112, 2064626

Offset

1,2

Links

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

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: A385572 A357532 A018148 * A369706 A307673 A141002

Adjacent sequences: A084969 A084970 A084971 * A084973 A084974 A084975

Keyword

nonn,more

Author

Robert G. Wilson v, May 22 2003

Extensions

a(18)-a(26) from Sean A. Irvine, May 23 2026

Status

approved