%I #20 Jun 07 2018 03:47:19
%S 10,9,8,7,6,5,4,3,2,1,6,8,10,15,8,13,6,14,16,9,14,13,6,14,22,18,20,16,
%T 6,23,28,15,26,22,6,29,34,15,32,28,6,35,40,15,38,34,6,41,46,15,44,40,
%U 6,47,52,15,50,46,6,53,58,15,56,52,6,59,64,15,62,58,6,65,70,15,68,64,6,71
%N a(n) = 11 - n for 1 <= n <= 10. Thereafter a(n) = a(n-a(n-2)) + a(n-a(n-4)).
%F a(6*k-3) = 6*(k-1)-4, a(6*k-2) = 6*(k-2)-2, a(6*k-1) = 6, a(6*k) = 6*(k-1)-1, a(6*k+1) = 6*k-2, a(6*k+2) = 15 for k > 4.
%p f:= proc(n) option remember; procname(n-procname(n-2))+procname(n-procname(n-4)) end proc:
%p for i from 1 to 10 do f(i):= 11-i od:
%p map(f, [$1..100]); # _Robert Israel_, May 16 2018
%o (PARI) q=vector(10^5); for(n=1, 10, q[n]=10-n+1); for(n=11, #q, q[n]=q[n-q[n-2]]+ q[n-q[n-4]]); q
%Y Cf. A087777, A240809, A244477, A304490.
%K nonn,easy
%O 1,1
%A _Altug Alkan_, May 15 2018