OFFSET
1,1
EXAMPLE
For n = 7, prime(7) = 17 and a(7) = 1343, which is the concatenation of the cubes of the digits of 17.
MATHEMATICA
Table[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[Prime[n]]^3)]], {n, 50}]
PROG
(Magma) [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^3: i in Intseq(p)])]): p in PrimesUpTo(250)];
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Vincenzo Librandi, Oct 17 2016
STATUS
approved