A268231 Indices of 1's in A047999.

0, 1, 2, 3, 5, 6, 7, 8, 9, 10, 14, 15, 16, 19, 20, 21, 23, 25, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 44, 45, 46, 53, 54, 55, 57, 63, 65, 66, 67, 68, 69, 74, 75, 76, 77, 78, 82, 86, 90, 91, 92, 95, 96, 99, 100, 103, 104, 105, 107, 109, 111, 113, 115, 117, 119, 120, 121, 122, 123, 124, 125, 126, 127

Offset

1,3

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Mathematica

Flatten@Position[Flatten@NestList[Mod[Append[#, 0] + Prepend[#, 0], 2] &, {1}, 15], 1] - 1 (* Ivan Neretin, Dec 19 2017 *)

Crossrefs

Cf. A047999, A268232.

Sequence in context: A288315 A285980 A357304 * A039167 A247360 A145397

Adjacent sequences: A268228 A268229 A268230 * A268232 A268233 A268234

Keyword

nonn

Author

N. J. A. Sloane, Feb 03 2016

Status

approved