A050829 Even numbers in the sequence generated by a(n) = a(a(n-3)) + a(n-a(n-3)).

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

Matthew House, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A050826 A050827 A050828 * A050830 A050831 A050832

Keyword

nonn,easy

Author

Mohammad K. Azarian

Extensions

More terms from James A. Sellers

Status

approved