OFFSET
1,1
COMMENTS
A110295 is a subsequence.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10822 (Terms <= 5 * 10^11)
EXAMPLE
3750 is the Heinz number of (3,3,3,3,2,1), whose length and lcm are both 6.
MATHEMATICA
Select[Range[2, 200], PrimeOmega[#]==LCM@@Cases[FactorInteger[#], {p_, k_}:>PrimePi[p]]&]
PROG
(PARI) heinz(n) = my(f=factor(n), pr=f[, 1]~, exps=f[, 2], res=vector(vecsum(exps)), t=0); for(i = 1, #pr, pr[i] = primepi(pr[i]); for(j=1, exps[i], t++; res[t] = pr[i])); res
is(n) = my(h = heinz(n)); lcm(h)==#h \\ David A. Corneth, Jul 05 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Gus Wiseman, Jul 02 2018
STATUS
approved