|
%I #11 Sep 08 2022 08:46:17
%S 8,27,125,343,11,127,1343,1729,827,8729,271,27343,641,6427,64343,
%T 12527,125729,2161,216343,3431,34327,343729,51227,512729,729343,101,
%U 1027,10343,10729,1127,18343,1271,127343,127729,164729,11251,1125343,121627,1216343
%N Number obtained by concatenating the cubes of the digits of prime(n).
%F a(n) = A048390(A000040(n)).
%e For n = 7, prime(7) = 17 and a(7) = 1343, which is the concatenation of the cubes of the digits of 17.
%t Table[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[Prime[n]]^3)]], {n, 50}]
%o (Magma) [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^3: i in Intseq(p)])]): p in PrimesUpTo(250)];
%Y Cf. A000040, A030078, A048390, A244557.
%K nonn,base,less
%O 1,1
%A _Vincenzo Librandi_, Oct 17 2016
|
