OFFSET
0,2
COMMENTS
LINKS
Rémy Sigrist, C program for A324853
EXAMPLE
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.
MATHEMATICA
nn=10000;
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}]]
PROG
(C) See Links section.
(PARI) isok(k, n) = {my(f=factor(k)[, 1]); sum(j=1, #f, !(k % primepi(f[j]))) == n; }
a(n) = {my(k=1); while (!isok(k, n), k++); k; } \\ Michel Marcus, Mar 20 2019
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Mar 18 2019
EXTENSIONS
a(8)-a(9) from Rémy Sigrist, Mar 19 2019
a(10)-a(18) from Michel Lagneau, Aug 19 2019
STATUS
approved