A283482 Positions of even terms in A004001.

3, 4, 6, 7, 8, 10, 13, 14, 15, 16, 18, 20, 21, 23, 24, 28, 29, 30, 31, 32, 34, 36, 39, 41, 42, 44, 45, 49, 52, 53, 54, 59, 60, 61, 62, 63, 64, 66, 68, 70, 71, 73, 75, 76, 78, 81, 84, 85, 86, 88, 91, 94, 95, 96, 98, 99, 103, 104, 105, 106, 108, 109, 113, 114, 115, 116, 122, 123, 124, 125, 126, 127, 128, 130, 132, 134, 137, 139, 141, 142, 144

Offset: 1

Author

Antti Karttunen, Mar 18 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..8264

Crossrefs

Cf. A283481 (complement), A283471 (a subsequence).

Positions of zeros in A095901.

Cf. A004001.

Programs

Mathematica

a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Select[Range@ 144, EvenQ@ a[#] &] (* Michael De Vlieger, Mar 18 2017, after Robert G. Wilson v at A004001 *)