|
%I #21 Sep 08 2022 08:45:33
%S 12,13,25,37,511,813,1317,2119,3423,5529,8931,14437,23341,37743,61047,
%T 98753,159759,258461,418167,676571,1094673,1771179,2865783,4636889,
%U 7502597,121393101,196418103,317811107,514229109,832040113,1346269127
%N Concatenation of n-th Fibonacci number and n-th prime.
%H Harvey P. Dale, <a href="/A138821/b138821.txt">Table of n, a(n) for n = 1..1000</a>
%e a(10)=5529 because A000045(10)=55 and A000040(10)=29.
%p f:= proc(n) local p;
%p p:= ithprime(n);
%p combinat:-fibonacci(n)*10^(1+ilog10(p))+p
%p end proc:
%p seq(f(n),n=1..100); # _Robert Israel_, Dec 15 2014
%t With[{nn=40},FromDigits[Flatten[IntegerDigits/@#]]&/@ Thread[ {Fibonacci[ Range[nn]],Prime[Range[nn]]}]] (* _Harvey P. Dale_, Dec 23 2011 *)
%o (Magma) [Seqint(Intseq(NthPrime(n)) cat Intseq(Fibonacci(n))): n in [1..50]]; // _Vincenzo Librandi_, Jul 24 2019
%Y Cf. A000040, A000045, A045532, A075110.
%K base,easy,nonn
%O 1,1
%A _Omar E. Pol_, Apr 05 2008, Apr 07 2008
|
