OFFSET
1,1
EXAMPLE
The prime factors of the first terms are: [2], [2, 3], [3, 5, 7], [3, 5, 11, 13], [3, 5, 11, 17, 19], [5, 7, 11, 13, 17, 19], [3, 5, 11, 17, 23, 29, 31], ...
PROG
(PARI) isok(n, nb) = {if (issquarefree(n) && (omega(n)==nb), f = factor(n)[, 1]~; avg = vecsum(f)/#f; for (k=1, #f\2, if (f[k] + f[#f-k+1] != 2*avg, return(0)); ); return (1); ); }
a(n) = {my(k = prod(i=1, n, prime(i))); while (! isok(k, n), k++); k; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Nov 10 2017
EXTENSIONS
a(8)-a(17) from Giovanni Resta, Nov 10 2017
STATUS
approved