|
%I #8 Feb 06 2020 22:50:13
%S 1,2,3,4,6,9,12,13,15,21,26,30,36,49,53,63,72,86,114,134,149,175,194,
%T 212,221,264,274,285,332,367,424,469,505,541,620,643,687,703,808,886,
%U 1015,1113,1198,1272,1448,1496,1586,1704,1864,1972,2116,2398,2491,2620,2912
%N Indices of A002182(n) in A055932.
%C 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.
%H Michael De Vlieger, <a href="/A332034/b332034.txt">Table of n, a(n) for n = 1..249</a>
%t 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]]
%Y Cf. A002182, A025487, A055932, A306802 (Indices of A002182(n) in A025487), A332035.
%K nonn
%O 1,2
%A _Michael De Vlieger_, Feb 05 2020
|
