|
%I #7 Jan 31 2024 18:12:42
%S 1,141,142741,14272562741,142725631252562741,
%T 142725631254665631252562741,14272563125466568235434665631252562741,
%U 1427256312546656823543167772168235434665631252562741
%N Concatenation of numbers k^k in increasing order up to the n-th and then in decreasing order.
%t Table[FromDigits[Join[Flatten[IntegerDigits/@Table[n^n,{n,k}]],Flatten[IntegerDigits/@Table[n^n,{n,k-1,1,-1}]]]],{k,10}] (* _Harvey P. Dale_, Jan 31 2024 *)
%K easy,nonn,base
%O 1,2
%A _Amarnath Murthy_, Dec 25 2001
%E More terms from _Sascha Kurz_, Mar 23 2002
|
