OFFSET
1,2
COMMENTS
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..10000
EXAMPLE
26 takes 4 phases to read 0:
subtract leaves
1 25
2 23
3 20
5 15
7 8
------
1 7
2 5
3 2
------
1 1
------
1 0
so a(26) = 4
MAPLE
A280055 := proc(n)
local a, nres, i ;
a := 0 ;
nres := n;
while nres > 0 do
for i from 1 do
if A014284(i) > nres then
break;
end if;
end do:
nres := nres-A014284(i-1) ;
a := a+1 ;
end do:
a ;
end proc:
seq(A280055(n), n=1..80) ; # R. J. Mathar, Mar 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 08 2017
STATUS
approved