|
%I #9 Feb 28 2020 01:28:31
%S 1,1,1,1,2,3,4,5,7,8,11,13,17,20,25,30,38,44,54,63,77,90,107,124,148,
%T 171,202,231,271,310,360,412,477,542,622,705,809,915,1042,1175,1335,
%U 1501,1699,1905,2148,2403,2702,3018,3383,3768,4212,4682,5223,5794,6445
%N Number of partitions of n into terms of (1,4)-Ulam sequence, cf. A003666.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UlamSequence.html">Ulam Sequence</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Ulam_number">Ulam number</a>
%H <a href="/index/U#Ulam_num">Index entries for Ulam numbers</a>
%e The first terms of A003666 are 1, 4, 5, 6, 7, 8, 10, 16, 18, 19, ...
%e a(7) = #{7, 6+1, 5+1+1, 4+1+1+1, 7x1} = 5;
%e a(8) = #{8, 7+1, 6+1+1, 5+1+1+1, 4+4, 4+1+1+1+1, 8x1} = 7;
%e a(9) = #{8+1, 7+1+1, 6+1+1+1, 5+4, 5+1+1+1+1, 4+4+1, 4+5x1, 9x1} = 8.
%o (Haskell)
%o a199120 = p a003666_list where
%o p _ 0 = 1
%o p us'@(u:us) m | m < u = 0
%o | otherwise = p us' (m - u) + p us m
%Y Cf. A000607; A199016, A199118, A199121, A199122.
%K nonn
%O 0,5
%A _Reinhard Zumkeller_, Nov 03 2011
|
