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

Author

Michael De Vlieger, Feb 05 2020

Keywords

• nonn

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

Crossrefs

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

Programs

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]]