|
%I #5 Nov 17 2014 16:34:24
%S 73,197,7129,10141,15161,19379,271109,373157,593251,757331,983431,
%T 997433,1069463,1231547,1361599,1531661,1571683,1627727,1831811,
%U 2069911,2161967,2213977,24731093,25311103,26931193,27131213,27911237,28191259
%N Primes of the form prime(2k) followed by prime(k).
%H Harvey P. Dale, <a href="/A089786/b089786.txt">Table of n, a(n) for n = 1..1000</a>
%e 10141 is a term as a concatenation of prime(26)=101 followed by prime(13)=41.
%p a:=proc(k) local s,m: s:= [op(convert(ithprime(k),base,10)),op(convert(ithprime(2*k),base,10))]: m:=add(s[j]*10^(j-1),j=1..nops(s)): if not isprime(m) then RETURN(NULL) else RETURN(m) fi: end; seq(a(k),k=1..250); (C. Ronaldo)
%t Select[Table[FromDigits[Flatten[IntegerDigits/@{Prime[2n],Prime[n]}]],{n,250}],PrimeQ] (* _Harvey P. Dale_, Nov 17 2014 *)
%Y Cf. A089782, A089783, A089784, A089785, A089787.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 24 2003
%E Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
|
