OFFSET
1,12
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
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}
A001055(n) = fcnt(n, n) \\ This function from Michael B. Porter, Oct 29 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Alford Arnold, Jul 18 2007
STATUS
approved