|
%I #6 May 19 2017 00:43:38
%S 1,4,34,956,106721,75818480,490656737694,22960404169011552,
%T 7141530219670856270919,20319415706020976355219258316,
%U 1104797870481014132439711155738991604
%N Ascending descending base exponent transform of triangular numbers (A000217).
%C A003101 is the ascending descending base exponent transform of natural numbers A000027. The ascending descending base exponent transform applied to the Fibonacci numbers is A113122; applied to the tribonacci numbers is A113153; applied to the Lucas numbers is A113154. Since the parity of the triangular numbers cycles odd, odd, even, even; the parity of this sequence cycles odd, even, even, even. The smallest prime in this sequence is a(5) = 127601. What is the next prime? What is the first triangular value?
%H G. C. Greubel, <a href="/A113231/b113231.txt">Table of n, a(n) for n = 1..40</a>
%F a(n) = Sum_{i=1..n} (T(i))^(T(n-i+1)), where T(n) are the triangle numbers.
%F a(n) = Sum_{i=1..n} ((i*(i+1)/2))^((n-i+1)*(n-i+2)/2).
%F a(n) = Sum_{i=1..n} (A000217(i))^(A000217(n-i+1)).
%e a(1) = 1 because T(1)^T(1) = 1^1 = 1.
%e a(2) = 4 because T(1)^T(2) + T(2)^T(1) = 1^3 + 3^1 = 4.
%e a(3) = 34 = 1^6 + 3^3 + 6^1.
%e a(4) = 956 = 1^10 + 3^6 + 6^3 + 10^1.
%e a(5) = 106721 = 1^15 + 3^10 + 6^6 + 10^3 + 15^1.
%e a(6) = 75818480 = 1^21 + 3^15 + 6^10 + 10^6 + 15^3 + 21^1.
%e a(7) = 490656737694 = 1^28 + 3^21 + 6^15 + 10^10 + 15^6 + 21^3 + 28^1.
%e a(8) = 22960404169011552 = 1^36 + 3^28 + 6^21 + 10^15 + 15^10 + 21^6 + 28^3 + 36^1.
%e a(9) = 7141530219670856270919 = 1^45 + 3^36 + 6^28 + 10^21 + 15^15 + 21^10 + 28^6 + 36^3 + 45^1.
%t A000217[n_] := Binomial[n + 1, 2]; Table[Sum[A000217[k]^(A000217[n - k + 1]), {k, 1, n}], {n, 1, 10}] (* _G. C. Greubel_, May 18 2017 *)
%o (PARI) for(n=1,10, print1(sum(k=1,n, (binomial(k+1,2))^(binomial(n-k+2,2))), ", ")) \\ _G. C. Greubel_, May 18 2017
%Y Cf. A000217, A005408, A113122, A113153, A113154.
%K easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Jan 07 2006
| 