login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A095172 Image of 1,1,1,... under the map Q. 2
1, 2, 3, 5, 6, 8, 11, 13, 17, 21, 24, 30, 34, 39, 47, 52, 60, 69, 76, 87, 97, 107, 121, 132, 147, 163, 177, 196, 213, 231, 254, 274, 298, 324, 347, 378, 406, 435, 471, 504, 541, 583, 621, 665, 711, 756, 808, 860, 915, 973, 1032, 1093, 1160, 1228, 1300, 1376, 1454 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
Define a map Q from a sequence c(1),c(2),c(3),... to a sequence d(1),d(2),d(3),... as follows:
Let A(0,k) be the starting sequence c(1),c(2), ... For m >= 1, define
A(m,k) = A(m-1,k) + A(m-1,k-A(m-1,m)) for k > A(m-1,m);
A(m,k) = A(m-1,k) for k <= A(m-1,m).
For example:
A(0,k):_1,1,1,1,1,1,1,1,1,1,...
+_______0,1,1,1,1,1,1,1,1,1,...
=A(1,k):1,2,2,2,2,2,2,2,2,2,...
+_______0,0,1,2,2,2,2,2,2,2,...
=A(2,k):1,2,3,4,4,4,4,4,4,4,...
+_______0,0,0,1,2,3,4,4,4,4,...
=A(3,k):1,2,3,5,6,7,8,8,8,8,...
+_______0,0,0,0,0,1,2,3,5,6,...
=A(4,k):1,2,3,5,6,8,10,11,13,14,...
+_______0,0,0,0,0,0,1,_2,_3,_5,...
=A(5,k):1,2,3,5,6,8,11,13,16,19,...
+_______0,0,0,0,0,0,0,_0,_1,_2,...
=A(6,k):1,2,3,5,6,8,11,13,17,21,...
(The numbers of leading 0's in the sequence following each + forms the limit-sequence.)
The limit sequence d(1),d(2),d(3),... shares its first 10 terms with T(6,k), so the limit sequence {T(m,k)} as m -> oo) begins 1,2,3,5,6,8,11,13,17,21,...
Comment from Christian G. Bower, Jun 12 2004:
If we take the sequence whose g.f. is:
(1+x)(1+x^2)(1+x^3)(1+x^5)(1+x^6)(1+x^8)(1+x^11)...(1+x^d(n))...
we get:
1 1 1 2 1 2 3 2 4 4 3 6 4 5 8 5 8 9 7...
Taking the partial sums we get:
1 2 3 5 6 8 11 13 17 21 24 30 34 39 47 52 60 69 76...
the original sequence. More generally, Q appears to take sequence c to a sequence d such that if we take the Weigh transform of the characteristic function of d and convolve it with sequence c, we get the sequence d.
LINKS
PROG
(PARI) {d=57; A=vector(d, j, 1); m=1; while(d>A[m], B=A; for(k=1, d, if(k>A[m], B[k]=A[k]+A[k-A[m]])); A=B; m++); for(j=1, d, print1(A[j], ", "))} - Klaus Brockhaus, Jun 21 2004
CROSSREFS
Sequence in context: A191884 A291693 A266542 * A179101 A127312 A081830
KEYWORD
nonn,nice,easy
AUTHOR
N. J. A. Sloane, based on correspondence from Leroy Quet, Jun 11 2004
EXTENSIONS
What happens if the map Q or its inverse is applied to other basic sequences such as powers of 2, Fibonacci numbers, triangular numbers, etc.?
More terms from Klaus Brockhaus, Jun 21 2004
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 06:16 EDT 2024. Contains 371782 sequences. (Running on oeis4.)