OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
811 is in the sequence because it is prime formed from the concatenation of 8 and 11, where 11 is the prime next to 8.
3137 is in the sequence because it is prime formed from the concatenation of 31 and 37, where 37 is the prime next to 31.
MAPLE
f:= proc(n) local x, p;
p:= nextprime(n);
x:= n*10^(1+ilog10(p))+p;
if isprime(x) then x else NULL fi
end proc:
map(f, [$1..200]); # Robert Israel, Jan 01 2017
MATHEMATICA
Select[Table[FromDigits[Join[IntegerDigits[n], IntegerDigits[NextPrime[n]]]], {n, 500}], PrimeQ]
PROG
(Magma) [p : n in[1 .. 200] | IsPrime (p) where p is Seqint(Intseq (NextPrime(n)) cat Intseq(n))];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jan 01 2017
STATUS
approved