A075299 Trajectory of 290 under the Reverse and Add! operation carried out in base 4, written in base 10.
290, 835, 1610, 4195, 17060, 23845, 46490, 89080, 138125, 255775, 506510, 1238395, 5127260, 8616205, 15984335, 31949470, 79793675, 315404860, 569392925, 1060061935, 2114961710, 5206421995, 20997654620, 35262166285
Offset: 0
Examples
290 (decimal) = 10202 -> 10202 + 20201 = 31003 = 835 (decimal).
Links
- Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
- David J. Seal, Results
- Index entries for sequences related to Reverse and Add!
Programs
-
Mathematica
NestWhileList[# + IntegerReverse[#, 4] &, 290, # != IntegerReverse[#, 4] &, 1, 23] (* Robert Price, Oct 18 2019 *)
-
PARI
{m=290; stop=26; c=0; while(c
0,d=divrem(k,4); k=d[1]; rev=4*rev+d[2]); c++; m=m+rev)}
Comments