A253590 Indices of the primorial numbers in A098550.

2, 10, 39, 229, 2484

Offset

1,1

Links

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

Formula

A098550(a(n)) = A002110(n)

Mathematica

a = {1, 2, 3}; NN = Range[4, 12000]; g = {-1}; While[g[[1]] != 0, g = Flatten[{FirstPosition[NN, v_ /; GCD[a[[-1]], v] == 1 && GCD[a[[-2]], v] > 1, 0]}]; If[g[[1]] != 0, d = NN[[g]]; a = Flatten[Append[a, d[[1]]]]; NN = Delete[NN, g[[1]]]]]; a002110[n_] := Product[Prime[j], {j, n}]; Flatten[Table[Position[a, k_ /; k == a002110[n]], {n, 5}]]

Crossrefs

Cf. A000040 (prime numbers), A002110 (primorial numbers), A098550.

Sequence in context: A165814 A151311 A151312 * A184433 A339090 A244376

Adjacent sequences: A253587 A253588 A253589 * A253591 A253592 A253593

Keyword

nonn,more

Author

L. Edson Jeffery, Jan 04 2015

Status

approved