%I #8 Mar 30 2017 21:55:14
%S 0,1,4,10,19,33,52,77,108,146,190,244,306,377,458,549,652,767,896,
%T 1038,1195,1367,1554,1757,1978,2216,2472,2746,3040,3353,3688,4045,
%U 4423,4823,5247,5696,6169,6668,7193,7745,8324,8933,9570,10236,10934,11663,12423,13215,14042,14902,15797,16726,17693,18695,19734,20811,21928,23083,24278,25513
%N a(n) = number of steps to reach 0 when starting from k = (n^3)-1 and repeatedly applying the map that replaces k with k - A055401(k), where A055401(k) = the number of positive cubes needed to sum to k using the greedy algorithm.
%H Antti Karttunen, <a href="/A261228/b261228.txt">Table of n, a(n) for n = 1..512</a>
%F a(1) = 0; for n > 1, a(n) = A261229(n-1) + a(n-1).
%F a(n) = A261226((n^3)-1).
%o (Scheme, two variants, the first one using definec-macro)
%o (definec (A261228 n) (if (= 1 n) 0 (+ (A261229 (- n 1)) (A261228 (- n 1)))))
%o (define (A261228 n) (A261226 (- (* n n n) 1)))
%Y One less than A261227.
%Y First differences: A261229.
%Y Cf. A000578, A055401, A261225, A261226.
%Y Cf. also A261223.
%K nonn
%O 1,3
%A _Antti Karttunen_, Aug 16 2015
|