OFFSET
1,2
COMMENTS
A343771 is a subsequence.
LINKS
Jianing Song, Table of n, a(n) for n = 1..10000
EXAMPLE
12103 is a term since 12103 = 7^2 * 13 * 19.
22477 is not a term since 22477 = 7 * 13^2 * 19, the exponents are not nonincreasing.
PROG
(PARI) \\ following program for A054994
list_A344473(lim) =
{
my(u = [1], v = List(), w = v, pr, t = 1);
forprime(p = 7, ,
if (p % 3 > 1, next);
t *= p;
if (t > lim,
break);
listput(w, t)
);
for (i = 1, #w,
pr = 1;
for (e = 1, logint(lim\ = 1, w[i]),
pr *= w[i];
for (j = 1, #u,
t = pr * u[j];
if (t > lim,
break);
listput(v, t)
)
);
if (w[i] ^ 2 < lim, u = Set(concat(Vec(v), u)); v = List());
);
Set(concat(Vec(v), u));
}
list_A344473(100000)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jianing Song, May 20 2021
STATUS
approved