cp's OEIS Frontend

A284908 a(n) = A000009(A000009(n)).

%I A284908 #11 Apr 07 2017 01:36:04
%S A284908 1,1,1,1,1,2,2,3,4,6,10,15,27,46,89,192,390,864,2304,5718,16444,53250,
%T A284908 173682,618784,2556284,11086968,53466624,299016608,1780751883,
%U A284908 11784471548,94036004868,795888123110,7723778471936,91117574462854,1168225267521350
%N A284908 a(n) = A000009(A000009(n)).
%H A284908 Alois P. Heinz, <a href="/A284908/b284908.txt">Table of n, a(n) for n = 0..70</a>
%p A284908 with(numtheory):
%p A284908 b:= proc(n) option remember; `if`(n=0, 1, add(add(
%p A284908       `if`(d::odd, d, 0), d=divisors(j))*b(n-j), j=1..n)/n)
%p A284908     end:
%p A284908 a:= n-> b(b(n)):
%p A284908 seq(a(n), n=0..35);
%t A284908 Table[PartitionsQ@ PartitionsQ@ n, {n, 0, 50}] (* _Indranil Ghosh_, Apr 07 2017 *)
%Y A284908 Cf. A000009, A000041, A058699, A284909, A284910.
%K A284908 nonn
%O A284908 0,6
%A A284908 _Alois P. Heinz_, Apr 05 2017