[seqfan] Re: Move, add, delete, repeat

[brad klee]

Could the first differences be related to A004641? 

I tried with Mathematica and matched all your terms: 

Accumulate[Prepend[2 (Nest[Flatten[
        # /. {0 -> {1, 0}, 1 -> {1, 0, 0}}
        ] &, {1}, 5] + 2), 3]] 

--Brad

------- Original Message -------
On Friday, May 26th, 2023 at 10:18 PM, Ali Sada via SeqFan 
> 3, 9, 13, 17, 23, 27, 33, 37, 43, 47, 51, 57, 61, 67, 71, 75,81, 85, 91, 95, 99, 105, 109, 115, 119, 125, 129, 133, 139, 143, 149, 153, 157,163, 167, 173, 177, 183, 187, 191, 197, 201, 207, 211, 215, 221, 225, 231, 235,241, 245, 249, 255, 259, 265, 269, 273, 279, 283, 289, 293, 297, 303, 307, 313,317, 323, 327, 331, 337, 341, 347, 351, 355, 361, 365, 371, 375, 381
> 
> 
> I need some help with the exact definition of this sequence.