|
|
A135346
|
|
a(0)=1. a(n) = Sum_{k=1..n} a(n-d(k)), where d(k) = A000005(k) (the number of positive divisors of k).
|
|
1
|
|
|
1, 1, 2, 4, 9, 23, 56, 161, 426, 1228, 3422, 10897, 31797, 107868, 334558, 1101073, 3497461, 12456122, 40984747, 153684304, 526066576, 1919047914, 6744790864, 26222498483, 94726314125, 365396084072, 1354096965947, 5175498770227
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MAPLE
|
A135346 := proc(n) option remember ; local k ; if n = 0 then 1 ; else add(A135346(n-numtheory[tau](k)), k=1..n) ; fi ; end: seq(A135346(n), n=0..40) ; # R. J. Mathar, Feb 19 2008
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|