login
A050829
Even numbers in the sequence generated by a(n) = a(a(n-3)) + a(n-a(n-3)).
2
2, 4, 4, 4, 6, 6, 8, 8, 8, 8, 10, 10, 12, 14, 16, 16, 16, 16, 16, 16, 16, 18, 18, 20, 22, 24, 26, 28, 30, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 34, 34, 36, 38, 40, 42, 44, 46, 46, 48, 48, 50, 52, 54, 54, 56, 56, 58, 58, 60, 60, 62, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64
OFFSET
1,1
LINKS
MATHEMATICA
a[1]=1; a[2]=1; a[3]=1; a[n_]:= a[n] = a[a[n-3]] + a[n-a[n-3]]; Select[ Array[a, 200], EvenQ] (* Giovanni Resta, Jul 28 2015 *)
CROSSREFS
Cf. A006158.
Sequence in context: A060849 A130819 A307097 * A033825 A235790 A023988
KEYWORD
nonn,easy
EXTENSIONS
More terms from James A. Sellers
STATUS
approved