OFFSET
1,1
COMMENTS
LINKS
Daniel Yaqubi and Madjid Mirzavaziri, Some results on ordered and unordered factorization of a positive integer, arXiv:1412.0392 [math.CO], 2014-2018.
EXAMPLE
PROG
(PARI) fcnt(n, m) = {local(s); s=0; if(n == 1, s=1, fordiv(n, d, if(d > 1 & d <= m, s=s+fcnt(n/d, d)))); s; }
f(n) = fcnt(n, n); \\ A001055
lista(nn) = {my(sum = 0, list = List()); for(x=7, nn, if (!isprime(x) && issquarefree(x), listput(list, sum); sum = 0, sum += f(x)); ); Vec(list); } \\ Michel Marcus, Jul 24 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Ahmadreza Afi, Jul 22 2021
STATUS
approved