A138821 Concatenation of n-th Fibonacci number and n-th prime.

12, 13, 25, 37, 511, 813, 1317, 2119, 3423, 5529, 8931, 14437, 23341, 37743, 61047, 98753, 159759, 258461, 418167, 676571, 1094673, 1771179, 2865783, 4636889, 7502597, 121393101, 196418103, 317811107, 514229109, 832040113, 1346269127

Offset: 1

Author

Omar E. Pol, Apr 05 2008, Apr 07 2008

Keywords

• base
• easy
• nonn

Examples

			a(10)=5529 because A000045(10)=55 and A000040(10)=29.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A000045, A045532, A075110.

Programs

Magma

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

Maple

f:= proc(n) local p;
  p:= ithprime(n);
  combinat:-fibonacci(n)*10^(1+ilog10(p))+p
end proc:
seq(f(n),n=1..100); # Robert Israel, Dec 15 2014

Mathematica

With[{nn=40},FromDigits[Flatten[IntegerDigits/@#]]&/@ Thread[ {Fibonacci[ Range[nn]],Prime[Range[nn]]}]] (* Harvey P. Dale, Dec 23 2011 *)