login
A253245
Primes that are the concatenation of prime(n) and prime(n+2).
1
37, 1117, 1319, 1723, 4759, 89101, 97103, 101107, 113131, 151163, 181193, 223229, 227233, 239251, 251263, 293311, 313331, 337349, 389401, 421433, 461467, 491503, 587599, 631643, 647659, 683701, 691709, 701719, 739751, 761773, 809821
OFFSET
1,1
LINKS
MATHEMATICA
Module[{nn=300, pr}, pr={#[[1]], #[[3]]}&/@Partition[Prime[Range[nn]], 3, 1]; Select[Table[FromDigits[Flatten[IntegerDigits/@pr[[n]]]], {n, Length[ pr]}], PrimeQ]] (* Harvey P. Dale, Nov 29 2015 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=eval(Str(prime(n), prime(n+2)))), print1(k", ")))
CROSSREFS
Sequence in context: A217454 A101631 A005390 * A168166 A168165 A340539
KEYWORD
nonn,easy,base
AUTHOR
Altug Alkan, Aug 22 2015
STATUS
approved