OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = prime(n)*(10^floor(log_10(prime(n+1)))+1) + prime(n+1). - Conner L. Delahanty, May 10 2014
MATHEMATICA
#[[1]]*10^IntegerLength[#[[2]]]+#[[2]]&/@Partition[Prime[Range[40]], 2, 1] (* Harvey P. Dale, Jun 06 2015 *)
PROG
(Haskell)
a045533 n = a045533_list !! (n-1)
a045533_list = f $ map show a000040_list :: [Integer] where
f (t:ts@(t':_)) = read (t ++ t') : f ts
-- Reinhard Zumkeller, Apr 20 2012
(PARI) a(n) = eval(concat(Str(prime(n)), Str(prime(n+1)))); \\ Michel Marcus, May 11 2014
(Magma) [Seqint(Intseq(NthPrime(n+1)) cat Intseq(NthPrime(n))): n in [1..50 ] ]; // Marius A. Burtea, Mar 21 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 11 1999
EXTENSIONS
Offset changed to 1, in agreement with (almost?) all references to this sequence, by M. F. Hasler
STATUS
approved