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,1

Links

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

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

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A283482 (ZERO-POS 1 1 A095901))

Crossrefs

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

Positions of zeros in A095901.

Cf. A004001.

Sequence in context: A227019 A105454 A364006 * A283471 A127260 A089530

Adjacent sequences: A283479 A283480 A283481 * A283483 A283484 A283485

Keyword

nonn

Author

Antti Karttunen, Mar 18 2017

Status

approved