A332034 Indices of A002182(n) in A055932.

1, 2, 3, 4, 6, 9, 12, 13, 15, 21, 26, 30, 36, 49, 53, 63, 72, 86, 114, 134, 149, 175, 194, 212, 221, 264, 274, 285, 332, 367, 424, 469, 505, 541, 620, 643, 687, 703, 808, 886, 1015, 1113, 1198, 1272, 1448, 1496, 1586, 1704, 1864, 1972, 2116, 2398, 2491, 2620, 2912

Offset

1,2

Comments

A055932 lists numbers m whose prime divisors p are consecutive primes starting with 2, while A002182 is a subset of A025487, the latter lists numbers m that are products of primorials. With both, we find a range of indices of primes 1, 2, ..., k that divide m. While A055932 admits any multiplicity for primes regardless of their index, the latter only admits decreasing multiplicities as prime index k increases. A002182 is a subset of A025487, which is in turn a subset of A055932.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..249

Mathematica

With[{s = TakeWhile[Import["https://oeis.org/A002182/b002182.txt", "Data"], Length@ # > 0 &][[All, -1]], t = TakeWhile[Import["https://oeis.org/A055932/b055932.txt", "Data"], Length@ # > 0 &][[All, -1]]}, TakeWhile[Map[FirstPosition[t, #][[1]] &, s], IntegerQ]]

Crossrefs

Cf. A002182, A025487, A055932, A306802 (Indices of A002182(n) in A025487), A332035.

Sequence in context: A048249 A370843 A288734 * A332035 A318759 A018471

Adjacent sequences: A332031 A332032 A332033 * A332035 A332036 A332037

Keyword

nonn

Author

Michael De Vlieger, Feb 05 2020

Status

approved