|
%I #22 Sep 08 2022 08:46:22
%S 1,3,343,11390625,819628286980801,977480813971145474830595007,
%T 151313661355466579537756144585602921111718527,
%U 24161564501550368558430041444810830996032029256261885166168212890625
%N a(n) = A000225(n)^A000217(n-1), n > 0.
%D Bijan Davvaz, Polygroup theory and related systems, World Scientific Publishing Co. Plc. Ltd., New Jersey, (2013), p. 157 (for a(3) = 7^3 = 343).
%H Muniru A Asiru, <a href="/A318164/b318164.txt">Table of n, a(n) for n = 1..19</a>
%F a(n) = (2^n - 1)^(n*(n - 1)/2), n > 0.
%e For n = 3, a(3) = 7^3 = 343.
%p a:=n->(2^n-1)^(n*(n-1)/2): seq(a(n),n=1..8);
%t a[n_] := (2^n-1)^(n*(n-1)/2); Array[a, 8] (* _Stefano Spezia_, Sep 02 2018 *)
%o (GAP) List([1..8],n->(2^n-1)^(n*(n-1)/2));
%o (PARI) a(n) = (2^n-1)^(n*(n-1)/2); \\ _Michel Marcus_, Aug 21 2018
%o (Magma) SetDefaultRealField(RealField(100)); [Round((2^n-1)^(n*(n-1)/2)): n in [1..8]]; // _G. C. Greubel_, Oct 19 2018
%Y Cf. A000225, A000217.
%K nonn
%O 1,2
%A _Muniru A Asiru_, Aug 19 2018
| 