0,3

If written as a triangle:

.0,

.1,

.3, 5,

.8, 9, 11, 17,

.21, 15, 11, 18, 25, 29, 39, 54,

.53, 27, 11, 18, 25, 29, 39, 55, 57, 41, 40, 61, 79, 97, 132, 160,

.129, 51, 11, 18, 25, 29, 39, 55, 57, 41, 40, 61, 79, 97, 132, 161, 133, 65, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 424, 448,

.305, 99, 11, 18, 25, 29, 39, 55, 57, 41, 40, 61, 79, 97, 132, 161, 133, 65, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 424, 449, 309, 113, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 425, 455, 331, 170, 141, 201, 255, 327, 433, 489, 432, 385, 483, 657, 836, 1076, 1296, 1200,

.705, 195, 11, 18, 25, 29, 39, 55, 57, 41, 40, 61, 79, 97, 132, 161, 133, 65, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 424, 449, 309, 113, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 425, 455, 331, 170, 141, 201, 255, 327, 433, 489, 432, 385, 483, 657, 836, 1076, 1296, 1201, 709, 209, 40, 61, 79, 97, 133, 167, 155, 122, 141, 201, 255, 326, 425, 455, 331, 170, 141, 201, 255, 327, 433, 489, 432, 385, 483, 657, 836, 1076, 1297, 1207, 731, 266, 141, 201, 255, 327, 433, 489, 432, 385, 483, 657, 836, 1077, 1305, 1241, 832, 481, 483, 657, 837, 1087, 1355, 1410, 1249, 1253, 1623, ...

then the rows (omitting the first two terms of each row) converge to A151748.

A151747 := proc(n) option remember; local i, j;

if (n <= 0) then 0;

elif (n <= 3) then 2*n-1;

else

i := floor(log(n)/log(2));

j := n - 2^i;

if (j = 0) then (3*i+1)*2^(i-2)+1;

elif (j = 1) then 3*2^(i-1)+3;

elif (j = 2^i-1) then 2*A151747(j)+A151747(j+1)-1;

else 2*A151747(j)+A151747(j+1);

end if;

end if;

end proc;

Cf. A151725, A151726, A151735, A151748.

Sequence in context: A026223 A034784 A124401 this_sequence A088597 A080640 A107792

Adjacent sequences: A151744 A151745 A151746 this_sequence A151748 A151749 A151750

nonn,tabf

David Applegate (david(AT)research.att.com), Jun 16 2009