OFFSET
1,2
LINKS
Altug Alkan, Table of n, a(n) for n = 1..10000
Altug Alkan, Alternative scatterplot of A296421
Altug Alkan, Scatterplot of a(n) - 2*n/3
MATHEMATICA
Fold[Append[#1, #1[[#2 - #1[[#2 - 1]] ]] + #1[[#2 - #1[[#2 - 2]] ]] + #1[[#2 - #1[[#2 - 3]] ]] ] &, {1, 2, 3, 4, 4, 6, 6}, Range[8, 75]] (* Michael De Vlieger, Dec 12 2017 *)
PROG
(PARI) q=vector(10^5); q[1]=1; q[2]=2; q[3]=3; q[4]=4; q[5]=4; q[6]=6; q[7]=6; for(n=8, #q, q[n] = q[n-q[n-1]]+q[n-q[n-2]]+q[n-q[n-3]]); q
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Altug Alkan, Dec 12 2017
STATUS
approved