login
Number obtained by concatenating the cubes of the digits of prime(n).
1

%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