1,1

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

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 *)

Cf. A006158.

Sequence in context: A060849 A130819 A307097 * A033825 A235790 A023988

Adjacent sequences: A050826 A050827 A050828 * A050830 A050831 A050832

nonn,easy

Mohammad K. Azarian

More terms from James A. Sellers

approved