A123213 a(n) = A062457(n) concatenated with A014284(n).

21, 93, 1256, 240111, 16105118, 482680929, 41033867342, 1698356304159, 180115266146378, 420707233300201101, 25408476896404831130, 6582952005840035281161, 925103102315013629321198, 73885357344138503765449239, 12063348350820368238715343282

Offset: 1

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 05 2006

Keywords

• base
• nonn
• less

Examples

			a(1) = 21 = 2 concatenated with 1.
a(2) = 93 = 9 concatenated with 3.
a(3) = 1256 = 125 concatenated with 6.
a(4) = 240111 = 2401 concatenated with 11.
		

Links

• Sergio Silva, Teste Numerico.

Crossrefs

Cf. A014284, A062457.

Programs

Mathematica

rng=13;A062457=Table[Prime[n]^n, {n, rng}] ;A014284=Accumulate[Join[{1}, Prime[Range[rng-1]]]];Table[FromDigits[Join[IntegerDigits[A062457[[n]]],IntegerDigits[A014284[[n]]]]],{n,rng}] (* James C. McMahon, Nov 17 2024 *)

PARI

s=1;print1(21,",");for(n=2,20,s=s+prime(n-1);print1(prime(n)^n,s,","))