|
%I #18 Aug 19 2019 13:30:53
%S 1,2,6,30,330,4290,60060,1021020,29609580,917896980,33962188260,
%T 1290563153880,52913089309080,2275262840290440,106937353493650680,
%U 6309303856125390120,422723358360401138040,30013358443588480800840,2190975166381959098461320
%N First number divisible by n of its own distinct prime indices.
%C A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
%C a(n) is the first position of n in A324852.
%H Rémy Sigrist, <a href="/A324853/a324853.txt">C program for A324853</a>
%e a(6) = 60060 = 2^2 * 3 * 5 * 7 * 11 * 13 has prime indices {1,1,2,3,4,5,6}, and is less than any other number divisible by six of its own distinct prime indices.
%t nn=10000;
%t With[{mgs=Table[Count[If[n==1,{},FactorInteger[n]],{p_,_}/;Divisible[n,PrimePi[p]]],{n,nn}]},Table[Position[mgs,i][[1,1]],{i,0,5}]]
%o (C) See Links section.
%o (PARI) isok(k,n) = {my(f=factor(k)[,1]); sum(j=1, #f, !(k % primepi(f[j]))) == n;}
%o a(n) = {my(k=1); while (!isok(k, n), k++); k;} \\ _Michel Marcus_, Mar 20 2019
%Y Cf. A000720, A001222, A003963, A056239, A120383, A323440.
%Y Cf. A324771, A324846, A324847, A324848, A324849, A324850, A324852, A324856.
%K nonn,more
%O 0,2
%A _Gus Wiseman_, Mar 18 2019
%E a(8)-a(9) from _Rémy Sigrist_, Mar 19 2019
%E a(10)-a(18) from _Michel Lagneau_, Aug 19 2019
|
