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!)
A113534 Ascending descending base exponent transform of the flipped tribonacci substitution (A092782). 1

%I #15 May 19 2017 02:37:53

%S 1,3,6,7,20,10,39,12,26,19,20,43,21,78,24,53,30,57,43,88,61,59,56,43,

%T 90,42,155,46,109,53,122,75,105,114,73,122,62,197,63,172,71,136,96,

%U 183,140,122,139,86,179,81,304,83,185,98,153,162,160,261,121,192,107,236,126

%N Ascending descending base exponent transform of the flipped tribonacci substitution (A092782).

%C The flipped tribonacci substitution (A092782) b(n) is the fixed point of the morphism 1 -> 12, 2 -> 13, 3 -> 1, starting from b(1) = 1. The transformed sequence a(n) satisfies n <= a(n) <= 27 n but the bound can be determined to be much tighter.

%H V. F. Sirvent, <a href="http://dx.doi.org/10.1016/S0893-9659(98)00121-9">Semigroups and the self-similar structure of the flipped tribonacci substitution</a>, Applied Math. Letters, 12 (1999), 25-29. [Contains many further references.]

%F a(n) = Sum_{k=1..n} A092782(k)^(A092782(n-k+1)). - _G. C. Greubel_, May 17 2017

%e a(1) = A092782(1)^A092782(1) = 1^1 = 1.

%e a(2) = A092782(1)^A092782(2) + A092782(2)^A092782(1) = 1^2 + 2^1 = 3.

%e a(3) = 1^1 + 2^2 + 1^1 = 6.

%e a(4) = 1^3 + 2^1 + 1^2 + 3^1 = 7.

%e a(5) = 1^1 + 2^3 + 1^1 + 3^2 + 1^1 = 20.

%e a(6) = 1^2 + 2^1 + 1^3 + 3^1 + 1^2 + 2^1 = 10.

%e a(7) = 1^1 + 2^2 + 1^1 + 3^3 + 1^1 + 2^2 + 1^1 = 39.

%e a(8) = 1^1 + 2^1 + 1^2 + 3^1 + 1^3 + 2^1 + 1^2 + 1^1 = 12.

%e a(9) = 1^2 + 2^1 + 1^1 + 3^2 + 1^1 + 2^3 + 1^1 + 1^2 + 2^1 = 26.

%e a(10) = 1^1 + 2^2 + 1^1 + 3^1 + 1^2 + 2^1 + 1^3 + 1^1 + 2^2 + 1^1 = 19.

%e a(11) = 1^3 + 2^1 + 1^2 + 3^1 + 1^1 + 2^2 + 1^1 + 1^3 + 2^1 + 1^2 + 3^1 = 20.

%e a(12) = 1^1 + 2^3 + 1^1 + 3^2 + 1^1 + 2^1 + 1^2 + 1^1 + 2^3 + 1^1 + 3^2 + 1^1 = 43.

%t A092782[n_] := Nest[Function[l, {Flatten[(l /. {1 -> {1, 2}, 2 -> {1, 3}, 3 -> {1}})]}], {1}, n][[1]]; Table[Sum[(A092782[k][[k]])^((A092782[n - k + 1][[n - k + 1]])), {k, 1, n}], {n, 1, 10}] (* _G. C. Greubel_, May 18 2017 *)

%Y Cf. A005408, A087316, A092782, A113122, A113153, A113154, A113208, A113231, A113257, A113258, A113271, A113320, A113336, A113498.

%K easy,nonn

%O 1,2

%A _Jonathan Vos Post_, Jan 13 2006

%E a(3) corrected by _Giovanni Resta_, Jun 13 2016

%E a(13) onward from _G. C. Greubel_, May 18 2017

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 March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)