A075268 -id:A075268 - cp's OEIS frontend

A061561 Trajectory of 22 under the Reverse and Add! operation carried out in base 2.

22, 35, 84, 105, 180, 225, 360, 405, 744, 837, 1488, 1581, 3024, 3213, 6048, 6237, 12192, 12573, 24384, 24765, 48960, 49725, 97920, 98685, 196224, 197757, 392448, 393981, 785664, 788733, 1571328, 1574397, 3144192, 3150333, 6288384, 6294525

Offset: 0

N. J. A. Sloane, May 18 2001

Sequence A058042 written in base 10. 22 is the smallest number whose base 2 trajectory does not contain a palindrome.
lim_{n -> infinity} a(n)/a(n-1) = 2 for n mod 2 = 0.
lim_{n -> infinity} a(n)/a(n-1) = 1 for n mod 2 = 1. - Klaus Brockhaus, Dec 09 2009

T. D. Noe, Table of n, a(n) for n=0..500
Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
Index entries for sequences related to Reverse and Add!

Cf. A035522 (trajectory of 1 in base 2), A058042 (trajectory of 22 in base 2, written in base 2), A075253 (trajectory of 77 in base 2), A075268 (trajectory of 442 in base 2), A077076 (trajectory of 537 in base 2), A077077 (trajectory of 775 in base 2), A066059 (trajectory of n in base 2 (presumably) does not reach a palindrome), A075252 (trajectory of n in base 2 does not reach a palindrome and (presumably) does not join the trajectory of any term m < n), A075153 (trajectory of 318 in base 4).

Cf. A171470 (a(4*n)/2), A171471 (a(4*n+1)), A171472 (a(4*n+2)/12), A171473 (a(4*n+3)/3).

m := 22; stop := 36; c := 0; while c < stop do write(m,","); k := bit_length(m); rev := 0; for i := 0 to k-1 do if bit_test(m,i) then rev := bit_set(rev,k-1-i); end; end; inc(c); m := m+rev; end;.

a061561 n = a061561_list !! n
a061561_list = iterate a055944 22  -- Reinhard Zumkeller, Apr 21 2013

trajectory:=function(init, steps, base) a:=init; S:=[a]; for n in [1..steps] do a+:=Seqint(Reverse(Intseq(a,base)),base); Append(~S, a); end for; return S; end function; trajectory(22, 35, 2); // Klaus Brockhaus, Dec 09 2009

binRA[n_] := If[Reverse[IntegerDigits[n, 2]] == IntegerDigits[n, 2], n, FromDigits[Reverse[IntegerDigits[n, 2]], 2] + n]; NestList[binRA, 22, 100] (* Adapted from Ben Branman's code for A213012, Alonso del Arte, Jun 02 2012 *)

{m=22; stop=36; c=0; while(c0,d=divrem(k,2); k=d[1]; rev=2*rev+d[2]); c++; m=m+rev)}

a(0) = 22; a(1) = 35; for n > 1 and n = 2 (mod 4): a(n) = 6*2^(2*k)-3*2^k where k = (n+6)/4; n = 3 (mod 4): a(n) = 6*2^(2*k)+3*2^k-3 where k = (n+5)/4; n = 0 (mod 4): a(n) = 12*2^(2*k)-3*2^k where k = (n+4)/4; n = 1 (mod 4): a(n) = 12*2^(2*k)+9*2^k-3 where k = (n+3)/4. [Klaus Brockhaus, Sep 05 2002]
G.f.: (22+35*x+18*x^2-72*x^4-90*x^5-48*x^6-60*x^7+80*x^8+112*x^9) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)). [Klaus Brockhaus, Sep 05 2002, edited Dec 09 2009]
a(n+1) = A055944(a(n)). - Reinhard Zumkeller, Apr 21 2013

More terms from Klaus Brockhaus, May 27 2001

A075253 Trajectory of 77 under the Reverse and Add! operation carried out in base 2.

Original entry on oeis.org

77, 166, 267, 684, 897, 1416, 1557, 2904, 3333, 5904, 6189, 11952, 12813, 24096, 24669, 48480, 50205, 97344, 98493, 195264, 198717, 391296, 393597, 783744, 790653, 1569024, 1573629, 3140352, 3154173, 6283776, 6292989, 12572160

Offset: 0

Klaus Brockhaus, Sep 10 2002

22 is the smallest number whose base 2 trajectory (A061561) provably does not contain a palindrome. 77 is the next number (cf. A075252) with a completely different trajectory which has this property. A proof along the lines of Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2, can be based on the formula given below.
lim_{n -> infinity} a(n)/a(n-1) = 2 for n mod 2 = 1.
lim_{n -> infinity} a(n)/a(n-1) = 1 for n mod 2 = 0.
Interleaving of A176632, 2*A176633, 3*A176634, 12*A176635.
From A.H.M. Smeets, Feb 11 2019: (Start)
Pattern with cycle length 4 in binary representation, represented by contextfree grammars with production rules:
S_a -> 10 T_a 00, T_a -> 1 T_a 0 | 1100010;
S_b -> 11 T_b 01, T_b -> 0 T_b 1 | 0000101;
S_c -> 10 T_c 000, T_c -> 1 T_c 0 | 1101011;
S_d -> 11 T_d 101, T_d -> 0 T_d 1 | 0100000;
the trajectory is similar to that of 22 (see A058042) except for the stopping strings in T_a, T_b, T_c and T_d. (End)

			267 (decimal) = 100001011 -> 100001011 + 110100001 = 1010101100 = 684 (decimal).

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
Index entries for sequences related to Reverse and Add!
Index entries for linear recurrences with constant coefficients, signature (0, 3, 0, 0, 0, -6, 0, 4).

Cf. A061561 (trajectory of 22 in base 2), A075268 (trajectory of 442 in base 2), A077076 (trajectory of 537 in base 2), A077077 (trajectory of 775 in base 2), A066059 (trajectory of n in base 2 presumably does not reach a palindrome), A075252 (trajectory of n in base 2 does not reach a palindrome and presumably does not join the trajectory of any term m < n), A092210 (trajectory of n in base 2 presumably does not join the trajectory of any m < n).

Cf. A176632 (a(4*n)), A176633 (a(4*n+1)/2), A176634 (a(4*n+2)/3), A176635 (a(4*n+3)/12).

a075253 n = a075253_list !! n
a075253_list = iterate a055944 77  -- Reinhard Zumkeller, Apr 21 2013

trajectory:=function(init, steps, base) S:=[init]; a:=S[1]; for n in [1..steps] do a+:=Seqint(Reverse(Intseq(a,base)),base); Append(~S, a); end for; return S; end function; trajectory(77, 31, 2);

seq(coeff(series((77+166*x+36*x^2+186*x^3+96*x^4-636*x^5-672*x^6-348*x^7-44*x^8+632*x^9+504*x^10)/((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)),x,n+1), x, n), n = 0 .. 40); # Muniru A Asiru, Feb 12 2019

CoefficientList[Series[(77+166*x+36*x^2+186*x^3+96*x^4-636*x^5-672*x^6 -348*x^7-44*x^8 +632*x^9+504*x^10)/((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)), {x,0,40}], x] (* G. C. Greubel, Feb 11 2019 *)
NestWhileList[# + IntegerReverse[#, 2] &, 77,  # !=
IntegerReverse[#, 2] &, 1, 31] (* Robert Price, Oct 18 2019 *)

{m=77; stop=34; c=0; while(c0,d=divrem(k,2); k=d[1]; rev=2*rev+d[2]); c++; m=m+rev)}

((77+166*x+36*x^2+186*x^3+96*x^4-636*x^5-672*x^6 -348*x^7-44*x^8 +632*x^9+504*x^10)/((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4))).series(x, 40).coefficients(x, sparse=False) # G. C. Greubel, Feb 11 2019

a(0) = 77; a(1) = 166; a(2) = 267; for n > 2 and
n = 3 (mod 4): a(n) = 48*2^(2*k)-21*2^k where k = (n+5)/4;
n = 0 (mod 4): a(n) = 48*2^(2*k)+33*2^k-3 where k = (n+4)/4;
n = 1 (mod 4): a(n) = 96*2^(2*k)-30*2^k where k = (n+3)/4;
n = 2 (mod 4): a(n) = 96*2^(2*k)+6*2^k-3 where k = (n+2)/4.
G.f.: (77+166*x+36*x^2+186*x^3+96*x^4-636*x^5-672*x^6-348*x^7-44*x^8 +632*x^9+504*x^10) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)).
G.f. for the sequence starting at a(3): 3*x^3*(228+299*x-212*x^2 -378*x^3-448*x^4-446*x^5+432*x^6+524*x^7) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)).
a(n+1) = A055944(a(n)). - Reinhard Zumkeller, Apr 21 2013

Three comments added, g.f. edited, MAGMA program and crossrefs added by Klaus Brockhaus, Apr 25 2010

A077076 Trajectory of 537 under the Reverse and Add! operation carried out in base 2, written in base 10.

Original entry on oeis.org

537, 1146, 1899, 3618, 4713, 9522, 14427, 28386, 37533, 84966, 138123, 353004, 466209, 738024, 833301, 1525224, 1718853, 3048912, 3239469, 6196176, 6583437, 12389280, 12770397, 24975264, 25749789, 49944384, 50706621, 100282176

Offset: 0

Klaus Brockhaus, Oct 25 2002

The base 2 trajectory of 537 = A075252(4) provably does not contain a palindrome. A proof can be based on the formula given below.
lim_{n -> infinity} a(n)/a(n-1) = 1 for n mod 2 = 1.
lim_{n -> infinity} a(n)/a(n-1) = 2 for n mod 2 = 0.
Interleaving of 3*A177682, 6*A177683, 3*A177684, 6*A177685.

			537 (decimal) = 1000011001 -> 1000011001 + 1001100001 = 10001111010= 1146 (decimal).

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
Index entries for sequences related to Reverse and Add!

Cf. A058042 (trajectory of 22 in base 2, written in base 2), A061561 (trajectory of 22 in base 2), A075253 (trajectory of 77 in base 2), A075268 (trajectory of 442 in base 2), A077077 (trajectory of 775 in base 2), A075252 (trajectory of n in base 2 does not reach a palindrome and (presumably) does not join the trajectory of any term m < n).

Cf. A177682 (a(4*n)/3), A177683 (a(4*n+1)/6), A177684 (a(4*n+2)/3), A177685 (a(4*n+3)/6).

a077076 n = a077076_list !! n
a077076_list = iterate a055944 537  -- Reinhard Zumkeller, Apr 21 2013

trajectory:=function(init, steps, base) a:=init; S:=[a]; for n in [1..steps] do a+:=Seqint(Reverse(Intseq(a,base)),base); Append(~S, a); end for; return S; end function; trajectory(537, 27, 2);

NestWhileList[# + IntegerReverse[#, 2] &, 537,  # !=
IntegerReverse[#, 2] &, 1, 27] (* Robert Price, Oct 18 2019 *)

trajectory(n,steps) = {local(v, k=n); for(j=0, steps, print1(k, ", "); v=binary(k); k+=sum(j=1, #v, 2^(j-1)*v[j]))};
trajectory(537,27);

a(0), ..., a(11) as above; for n > 11 and
n = 0 (mod 4): a(n) = 3*2^(2*k+13)+18249*2^k-3 where k = (n-4)/4;
n = 1 (mod 4): a(n) = 6*2^(2*k+13)-12102*2^k where k = (n-5)/4;
n = 2 (mod 4): a(n) = 6*2^(2*k+13)+11718*2^k-3 where k = (n-6)/4;
n = 3 (mod 4): a(n) = 12*2^(2*k+13)-11910*2^k where k = (n-7)/4.
G.f.: 3*(179+382*x+96*x^2+60*x^3-328*x^4-444*x^5+1170*x^6+2232*x^7 +1166*x^8+5644*x^9+15402*x^10+46922*x^11+39850*x^12-62920*x^13-132612*x^14 -97532*x^15-34148*x^16+83800*x^17+109224*x^18+21856*x^19) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)).
G.f. for the sequence starting at a(12): 3*x^12*(155403+246008*x-188442*x^2-229616*x^3-260350*x^4-508920*x^5+293388*x^6+492528*x^7) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4))
a(n+1) = A055944(a(n)). - Reinhard Zumkeller, Apr 21 2013

Comment edited and three comments added, g.f. edited, PARI program revised, MAGMA program and crossrefs added by Klaus Brockhaus, May 12 2010

A077077 Trajectory of 775 under the Reverse and Add! operation carried out in base 2, written in base 10.

Original entry on oeis.org

775, 1674, 2325, 5022, 8919, 23976, 26757, 47376, 49581, 96048, 102669, 193056, 197469, 388704, 401949, 779328, 788157, 1563840, 1590333, 3131520, 3149181, 6273408, 6326397, 12554496, 12589821, 25129728, 25235709, 50274816, 50345469

Offset: 0

Klaus Brockhaus, Oct 25 2002

The base 2 trajectory of 775 = A075252(5) provably does not contain a palindrome. A proof can be based on the formula given below.
lim_{n -> infinity} a(n)/a(n-1) = 1 for n mod 2 = 1.
lim_{n -> infinity} a(n)/a(n-1) = 2 for n mod 2 = 0.
Interleaving of A177843, 6*A177844, 3*A177845, 6*A177846.

			775 (decimal) = 1100000111 -> 1100000111 + 1110000011 = 11010001010 = 1674 (decimal).

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
Index entries for sequences related to Reverse and Add!

Cf. A058042 (trajectory of 22 in base 2, written in base 2), A061561 (trajectory of 22 in base 2), A075253 (trajectory of 77 in base 2), A075268 (trajectory of 442 in base 2), A077076 (trajectory of 537 in base 2), A075252 (trajectory of n in base 2 does not reach a palindrome and (presumably) does not join the trajectory of any term m < n).

Cf. A177843 (a(4*n)), A177844 (a(4*n+1)/6), A177845 (a(4*n+2)/3), A177846 (a(4*n+3)/6).

a077077 n = a077077_list !! n
a077077_list = iterate a055944 775  -- Reinhard Zumkeller, Apr 21 2013

trajectory:=function(init, steps, base) a:=init; S:=[a]; for n in [1..steps] do a+:= Seqint(Reverse(Intseq(a,base)),base); Append(~S, a); end for; return S; end function; trajectory(775, 28, 2);

NestWhileList[# + IntegerReverse[#, 2] &, 775,  # !=
IntegerReverse[#, 2] &, 1, 28] (* Robert Price, Oct 18 2019 *)

trajectory(n,steps) = {local(v, k=n); for(j=0, steps, print1(k, ", "); v=binary(k); k+=sum(j=1, #v, 2^(j-1)*v[j]))};
trajectory(775,28);

a(0), ..., a(5) as above; for n > 5 and
n = 2 (mod 4): a(n) = 3*2^(2*k+7)+273*2^k-3 where k = (n+6)/4;
n = 3 (mod 4): a(n) = 6*2^(2*k+7)-222*2^k where k = (n+5)/4;
n = 0 (mod 4): a(n) = 6*2^(2*k+7)+54*2^k-3 where k = (n+4)/4;
n = 1 (mod 4): a(n) = 12*2^(2*k+7)-282*2^k where k = (n+3)/4.
a(n) = -a(n-1)+2*a(n-2)+2*a(n-3)+2*a(n-4)+2*a(n-5)-4*a(n-6)-4*a(n-7)-3 for n > 12; a(0), ..., a(12) as above.
G.f.: (775+1674*x+1944*x^4+8910*x^5+4650*x^6-14508*x^7-19840*x^8-22644*x^9- 1860*x^10+28680*x^11+14328*x^12-2112*x^13) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)).
G.f. for the sequence starting at a(6): 3*(8919+15792*x-10230*x^2- 15360*x^3-15358*x^4-31696*x^5+16668*x^6+31264*x^7) / ((1-x)*(1+x)*(1-2*x^2)*(1-2*x^4)).
a(n+1) = A055944(a(n)). - Reinhard Zumkeller, Apr 21 2013

Comment edited, three comments and formula added, g.f. edited, PARI program revised, MAGMA program and crossrefs added by Klaus Brockhaus, May 14 2010

A075299 Trajectory of 290 under the Reverse and Add! operation carried out in base 4, written in base 10.

Original entry on oeis.org

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

Klaus Brockhaus, Sep 12 2002

290 is conjectured (cf. A066450) to be the smallest number such that the Reverse and Add! algorithm in base 4 does not lead to a palindrome. Unlike 318 (cf. A075153) its trajectory does not exhibit any recognizable regularity, so that the method by which the base 4 trajectory of 318 as well as the base 2 trajectories of 22 (cf. A061561), 77 (cf. A075253), 442 (cf. A075268) etc. can be proved to be palindrome-free (cf. Links), is not applicable here.

			290 (decimal) = 10202 -> 10202 + 20201 = 31003 = 835 (decimal).

Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2
David J. Seal, Results
Index entries for sequences related to Reverse and Add!

Cf. A066450, A075153, A058042, A061561, A075253, A075268.

NestWhileList[# + IntegerReverse[#, 4] &, 290,  # !=
IntegerReverse[#, 4] &, 1, 23] (* Robert Price, Oct 18 2019 *)

{m=290; stop=26; c=0; while(c0,d=divrem(k,4); k=d[1]; rev=4*rev+d[2]); c++; m=m+rev)}

A177420 a(n) = 6a(n-1)-8a(n-2) for n > 10; a(0)=221, a(1)=2754, a(2)=12456, a(3)=77697, a(4)=589869, a(5)=5333271, a(6)=48222198, a(7)=218509695, a(8)=3071851356, a(9)=12683673552, a(10)=51137150880.

Original entry on oeis.org

221, 2754, 12456, 77697, 589869, 5333271, 48222198, 218509695, 3071851356, 12683673552, 51137150880, 205353516864, 823023894144, 3295315229952, 13187700226560, 52763679519744, 211080475305984, 844373415677952

Offset: 0

Klaus Brockhaus, May 07 2010

Related to Reverse and Add trajectory of 442 in base 2: a(n) = A075268(4*n)/2, i.e. one half of first quadrisection of A075268.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6, -8).

Cf. A075268 (Reverse and Add trajectory of 442 in base 2), A177421, A177422, A177423.

[221, 2754, 12456, 77697, 589869, 5333271, 48222198, 218509695,3071851356] cat [3*4^(n+7)-12576771*2^(n-5): n in [9..25]]; // Vincenzo Librandi, Sep 24 2013

CoefficientList[Series[(221 + 1428 x - 2300 x^2 + 24993 x^3 + 223335 x^4 + 2415633 x^5 + 20941524 x^6 - 28157325 x^7 + 2146570770 x^8 - 3999357024 x^9 - 390079584 x^10)/((1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)
LinearRecurrence[{6,-8},{221,2754,12456,77697,589869,5333271,48222198,218509695,3071851356,12683673552,51137150880},20] (* Harvey P. Dale, Nov 02 2020 *)

{m=18; v=concat([221, 2754, 12456, 77697, 589869, 5333271, 48222198, 218509695, 3071851356, 12683673552, 51137150880], vector(m-11)); for(n=12, m, v[n]=6*v[n-1]-8*v[n-2]); v}

a(n) = 3*4^(n+7)-12576771*2^(n-5) for n > 8.
G.f.: (221+1428*x-2300*x^2+24993*x^3+223335*x^4+2415633*x^5 +20941524*x^6-28157325*x^7+2146570770*x^8-3999357024*x^9-390079584*x^10) / ((1-2*x)*(1-4*x)).
G.f. for the sequence starting at a(9): 48*x^9*(264243199-520101884*x) / ((1-2*x)*(1-4*x)).

A177421 a(n) = 6a(n-1)-8a(n-2)-9 for n > 10; a(0)=629, a(1)=6585, a(2)=26259, a(3)=221931, a(4)=1917027, a(5)=18285939, a(6)=125792217, a(7)=703932681, a(8)=7131271077, a(9)=26172260445, a(10)=103884128445.

Original entry on oeis.org

629, 6585, 26259, 221931, 1917027, 18285939, 125792217, 703932681, 7131271077, 26172260445, 103884128445, 413926687101, 1652487095037, 6603509073405, 26401157680125, 105578873493501, 422263979519997, 1688952889171965

Offset: 0

Klaus Brockhaus, May 07 2010

Related to Reverse and Add trajectory of 442 in base 2: a(n) = A075268(4*n+1), i.e. second quadrisection of A075268.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (7, -14, 8).

Cf. A075268 (Reverse and Add trajectory of 442 in base 2), A177420, A177422, A177423.

[629, 6585, 26259, 221931, 1917027, 18285939, 125792217, 703932681, 7131271077] cat [6*4^(n+7)+12576771*2^(n-4)-3: n in [9..25]]; // Vincenzo Librandi, Sep 24 2013

CoefficientList[Series[(629 + 2182 x - 11030 x^2 + 125276 x^3 + 678456 x^4 + 7763712 x^5 + 22853574 x^6 + 64054092 x^7 + 3818545836 x^8 - 14897917296 x^9 + 14884638960 x^10 - 3900734400 x^11)/((1 - x) (1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)

{m=18; v=concat([629, 6585, 26259, 221931, 1917027, 18285939, 125792217, 703932681, 7131271077, 26172260445, 103884128445], vector(m-11)); for(n=12, m, v[n]=6*v[n-1]-8*v[n-2]-9); v}

a(n) = 6*4^(n+7)+12576771*2^(n-4)-3 for n > 8.
G.f.: (629+2182*x-11030*x^2+125276*x^3+678456*x^4+7763712*x^5+22853574*x^6 +64054092*x^7+3818545836*x^8-14897917296*x^9+14884638960*x^10-3900734400*x^11) / ((1-x)*(1-2*x)*(1-4*x)).
G.f. for the sequence starting at a(9): 3*x^9*(8724086815-26440564890*x+17716478072*x^2) / ((1-x)*(1-2*x)*(1-4*x)).

A177422 a(n) = 6a(n-1)-8a(n-2) for n > 10; a(0)=221, a(1)=1938, a(2)=8673, a(3)=73729, a(4)=589855, a(5)=7561526, a(6)=34593784, a(7)=218391421, a(8)=2116566392, a(9)=8522858480, a(10)=34225586144.

Original entry on oeis.org

221, 1938, 8673, 73729, 589855, 7561526, 34593784, 218391421, 2116566392, 8522858480, 34225586144, 137170649024, 549219204992, 2197950037760, 8793946586624, 35180079217664, 140728902612992, 562932781936640

Offset: 0

Klaus Brockhaus, May 07 2010

Related to Reverse and Add trajectory of 442 in base 2: a(n) = A075268(4*n+2)/6, i.e., one sixth of third quadrisection of A075268.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6, -8).

Cf. A075268 (Reverse and Add trajectory of 442 in base 2), A177420, A177421, A177423.

[221, 1938, 8673, 73729, 589855, 7561526, 34593784, 218391421, 2116566392] cat [2*4^(n+7)-4192257*2^(n-5): n in [9..25]]; // Vincenzo Librandi, Sep 24 2013

CoefficientList[Series[(221 + 612 x - 1187 x^2 + 37195 x^3 + 216865 x^4 + 4612228 x^5 - 6056532 x^6 + 71320925 x^7 + 1082968138 x^8 - 2429408504 x^9 + 20966400 x^10)/((1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)

{m=18; v=concat([221, 1938, 8673, 73729, 589855, 7561526, 34593784, 218391421, 2116566392, 8522858480, 34225586144], vector(m-11)); for(n=12, m, v[n]=6*v[n-1]-8*v[n-2]); v}

a(n) = 2*4^(n+7)-4192257*2^(n-5) for n > 8.
G.f.: (221+612*x-1187*x^2+37195*x^3+216865*x^4+4612228*x^5-6056532*x^6 +71320925*x^7+1082968138*x^8-2429408504*x^9+20966400*x^10) / ((1-2*x)*(1-4*x)).
G.f. for the sequence starting at a(9): 16*x^9*(532678655-1056972796*x)/((1-2*x)*(1-4*x)).

A177423 a(n) = 6a(n-1)-8a(n-2)-3 for n > 10; a(0)=753, a(1)=5043, a(2)=25779, a(3)=213003, a(4)=1687623, a(5)=18171219, a(6)=73344977, a(7)=769993485, a(8)=4480470831, a(9)=17582325855, a(10)=69524390079.

Original entry on oeis.org

753, 5043, 25779, 213003, 1687623, 18171219, 73344977, 769993485, 4480470831, 17582325855, 69524390079, 276487733631, 1102731281151, 4404485817855, 17605064657919, 70394501404671, 281526491164671, 1126002935750655

Offset: 0

Klaus Brockhaus, May 07 2010

Related to Reverse and Add trajectory of 442 in base 2: a(n) = A075268(4*n+3)/3, i.e. one third of fourth quadrisection of A075268.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (7, -14, 8).

Cf. A075268 (Reverse and Add trajectory of 442 in base 2), A177420, A177421, A177422.

[753, 5043, 25779, 213003, 1687623, 18171219, 73344977, 769993485, 4480470831] cat [4^(n+8)+12576771*2^(n-4)-1: n in [9..25]]; // Vincenzo Librandi, Sep 24 2013

CoefficientList[Series[(753 - 228 x + 1020 x^2 + 97128 x^3 + 517164 x^4 + 9133668 x^5 - 31930858 x^6 + 497474728 x^7 - 28023638 x^8 - 3587820988 x^9 + 3014752848 x^10 + 125798400 x^11)/((1 - x) (1 - 2 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 24 2013 *)

{m=18; v=concat([753, 5043, 25779, 213003, 1687623, 18171219, 73344977, 769993485, 4480470831, 17582325855, 69524390079], vector(m-11)); for(n=12, m, v[n]=6*v[n-1]-8*v[n-2]-3); v}

a(n) = 4^(n+8)+12576771*2^(n-4)-1 for n > 8.
G.f.: (753-228*x+1020*x^2+97128*x^3+517164*x^4+9133668*x^5-31930858*x^6 +497474728*x^7-28023638*x^8-3587820988*x^9+3014752848*x^10+125798400*x^11) / ((1-x)*(1-2*x)*(1-4*x)).
G.f. for the sequence starting at a(9): 3*x^9*(5860775285-17850630302*x +11989855016*x^2)/((1-x)*(1-2*x)*(1-4*x)).

A077408 Trajectory of 103 under the Reverse and Add! operation carried out in base 3, written in base 10.

Original entry on oeis.org

103, 230, 436, 776, 2424, 3856, 7400, 20856, 30928, 60920, 220248, 242704, 432896, 857152, 1460408, 2754688, 5134016, 16206744, 24437488, 44623424, 138104472, 201737128, 401511824, 1438324704, 1601682040, 2820726320, 5622321088

Offset: 0

Klaus Brockhaus, Nov 05 2002

103 = A077405(0) is conjectured (cf. A066450) to be the smallest number such that the Reverse and Add! algorithm in base 3 does not lead to a palindrome. Its trajectory does not exhibit any recognizable regularity, so that the method by which the base-2 trajectories of 22 (cf. A061561), 77 (cf. A075253), 442 (cf. A075268) etc. as well as the base-4 trajectories of 318 (cf. A075153), 266718 (cf. A075466), 270798 (cf. A075467) etc. can be proved to be palindrome-free (cf. Links), is not applicable here.

			103 (decimal) = 10211 -> 10211 + 11201 = 22112 = 230 (decimal).

Index entries for sequences related to Reverse and Add!
Klaus Brockhaus, On the 'Reverse and Add!' algorithm in base 2

Cf. A058042, A077405, A066450, A061561, A075253, A075268, A075153, A075466, A075467.

m := 103; stop := 28; c := 0; while c < stop do write(m:group(0),","); k := m; rev := 0; while k > 0 do rev := 3*rev + (k mod 3); k := k div 3; end; inc(c); m := m+rev; end;

cp's OEIS Frontend

A061561 Trajectory of 22 under the Reverse and Add! operation carried out in base 2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

ARIBAS

Haskell

Magma

Mathematica

PARI

Formula

Extensions

A075253 Trajectory of 77 under the Reverse and Add! operation carried out in base 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

Sage

Formula

Extensions

A077076 Trajectory of 537 under the Reverse and Add! operation carried out in base 2, written in base 10.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

PARI

Formula

Extensions

A077077 Trajectory of 775 under the Reverse and Add! operation carried out in base 2, written in base 10.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

PARI

Formula

Extensions

A075299 Trajectory of 290 under the Reverse and Add! operation carried out in base 4, written in base 10.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A177420 a(n) = 6*a(n-1)-8*a(n-2) for n > 10; a(0)=221, a(1)=2754, a(2)=12456, a(3)=77697, a(4)=589869, a(5)=5333271, a(6)=48222198, a(7)=218509695, a(8)=3071851356, a(9)=12683673552, a(10)=51137150880.

Views

Author

Keywords

Comments

Links

A177420 a(n) = 6a(n-1)-8a(n-2) for n > 10; a(0)=221, a(1)=2754, a(2)=12456, a(3)=77697, a(4)=589869, a(5)=5333271, a(6)=48222198, a(7)=218509695, a(8)=3071851356, a(9)=12683673552, a(10)=51137150880.

A177421 a(n) = 6a(n-1)-8a(n-2)-9 for n > 10; a(0)=629, a(1)=6585, a(2)=26259, a(3)=221931, a(4)=1917027, a(5)=18285939, a(6)=125792217, a(7)=703932681, a(8)=7131271077, a(9)=26172260445, a(10)=103884128445.

A177422 a(n) = 6a(n-1)-8a(n-2) for n > 10; a(0)=221, a(1)=1938, a(2)=8673, a(3)=73729, a(4)=589855, a(5)=7561526, a(6)=34593784, a(7)=218391421, a(8)=2116566392, a(9)=8522858480, a(10)=34225586144.

A177423 a(n) = 6a(n-1)-8a(n-2)-3 for n > 10; a(0)=753, a(1)=5043, a(2)=25779, a(3)=213003, a(4)=1687623, a(5)=18171219, a(6)=73344977, a(7)=769993485, a(8)=4480470831, a(9)=17582325855, a(10)=69524390079.