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

Links

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

Example

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

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 *)

Prog

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

Crossrefs

Cf. A000040, A000045, A045532, A075110.

Sequence in context: A050840 A108710 A108709 * A022102 A041292 A041679

Adjacent sequences: A138818 A138819 A138820 * A138822 A138823 A138824

Keyword

base,easy,nonn

Author

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

Status

approved