A075110 Concatenation of n-th prime and n in decimal notation.

21, 32, 53, 74, 115, 136, 177, 198, 239, 2910, 3111, 3712, 4113, 4314, 4715, 5316, 5917, 6118, 6719, 7120, 7321, 7922, 8323, 8924, 9725, 10126, 10327, 10728, 10929, 11330, 12731, 13132, 13733, 13934, 14935, 15136, 15737, 16338, 16739, 17340

Offset: 1

Author

Reinhard Zumkeller, Sep 03 2002

Keywords

• nonn
• base

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A045532.

Programs

Haskell

a075110 n = read $ show (a000040 n) ++ show n :: Integer
-- Reinhard Zumkeller, Jul 08 2014

Magma

[Seqint(Intseq(n) cat Intseq(NthPrime(n))): n in [1..46]]; // Vincenzo Librandi, Mar 24 2019

Mathematica

Table[FromDigits[Join[IntegerDigits[Prime[n]], IntegerDigits[n]]], {n, 40}] (* Vincenzo Librandi, Mar 24 2019 *)

PARI

a(n) = eval(Str(prime(n), n)); \\ Michel Marcus, Mar 24 2019

Formula

a(n) = A000040(n)*10^(A004216(n)+1) + n.