%I #38 Feb 17 2024 10:31:38
%S 23,35,57,711,1113,1317,1719,1923,2329,2931,3137,3741,4143,4347,4753,
%T 5359,5961,6167,6771,7173,7379,7983,8389,8997,97101,101103,103107,
%U 107109,109113,113127,127131,131137
%N Concatenate the n-th and (n+1)st prime.
%H Reinhard Zumkeller, <a href="/A045533/b045533.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = prime(n)*(10^floor(log_10(prime(n+1)))+1) + prime(n+1). - _Conner L. Delahanty_, May 10 2014
%t #[[1]]*10^IntegerLength[#[[2]]]+#[[2]]&/@Partition[Prime[Range[40]],2,1] (* _Harvey P. Dale_, Jun 06 2015 *)
%o (Haskell)
%o a045533 n = a045533_list !! (n-1)
%o a045533_list = f $ map show a000040_list :: [Integer] where
%o f (t:ts@(t':_)) = read (t ++ t') : f ts
%o -- _Reinhard Zumkeller_, Apr 20 2012
%o (PARI) a(n) = eval(concat(Str(prime(n)), Str(prime(n+1)))); \\ _Michel Marcus_, May 11 2014
%o (Magma) [Seqint(Intseq(NthPrime(n+1)) cat Intseq(NthPrime(n))): n in [1..50 ] ]; // _Marius A. Burtea_, Mar 21 2019
%Y Cf. A077800, A095958 (subsequence), A030461 (primes).
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Dec 11 1999
%E Offset changed to 1, in agreement with (almost?) all references to this sequence, by _M. F. Hasler_