login
A138821
Concatenation of n-th Fibonacci number and n-th prime.
8
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
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
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Apr 05 2008, Apr 07 2008
STATUS
approved