|
| |
|
|
A045532
|
|
Concatenate n with n-th prime.
|
|
12
|
|
|
|
12, 23, 35, 47, 511, 613, 717, 819, 923, 1029, 1131, 1237, 1341, 1443, 1547, 1653, 1759, 1861, 1967, 2071, 2173, 2279, 2383, 2489, 2597, 26101, 27103, 28107, 29109, 30113, 31127, 32131, 33137, 34139, 35149, 36151, 37157, 38163, 39167, 40173
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
|
a(n) = n*10^(A004216(A000040(n))+1) + A000040(n). - Reinhard Zumkeller, Sep 03 2002
|
|
|
MATHEMATICA
|
Table[FromDigits[Join[IntegerDigits[n], IntegerDigits[Prime[n]]]], {n, 40}] (* Vincenzo Librandi, Apr 13 2019 *)
|
|
|
PROG
|
(Haskell)
a045532 n = read $ show n ++ show (a000040 n) :: Integer
-- Reinhard Zumkeller, Jul 08 2014
(MAGMA) [Seqint(Intseq(NthPrime(n)) cat Intseq(n)): n in [1..45]]; // Vincenzo Librandi, Apr 13 2019
(PARI) a(n) = eval(concat(Str(n), Str(prime(n)))); \\ Michel Marcus, Apr 13 2019
|
|
|
CROSSREFS
|
Cf. A000040, A075110.
Cf. A085451. [Reinhard Zumkeller, Jun 30 2010]
Sequence in context: A233032 A088997 A049852 * A255729 A190426 A207539
Adjacent sequences: A045529 A045530 A045531 * A045533 A045534 A045535
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Jeff Burch
|
|
|
STATUS
|
approved
|
| |
|
|
