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,1

Links

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

Formula

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

Mathematica

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

Prog

(Haskell)
a075110 n = read $ show (a000040 n) ++ show n :: Integer
-- Reinhard Zumkeller, Jul 08 2014
(PARI) a(n) = eval(Str(prime(n), n)); \\ Michel Marcus, Mar 24 2019
(Magma) [Seqint(Intseq(n) cat Intseq(NthPrime(n))): n in [1..46]]; // Vincenzo Librandi, Mar 24 2019

Crossrefs

Cf. A045532.

Sequence in context: A035137 A261910 A351842 * A219684 A219881 A181677

Adjacent sequences: A075107 A075108 A075109 * A075111 A075112 A075113

Keyword

nonn,base

Author

Reinhard Zumkeller, Sep 03 2002

Status

approved