OFFSET
1,1
COMMENTS
EXAMPLE
The prime 53 is in the sequence because the next prime is 59 and 5953 is a prime.
MAPLE
read("transforms") ;
for n from 1 to 600 do p := ithprime(n) ; q := nextprime(p) ; r := digcat2(q, p) ; if isprime(r) then printf("%d, ", p) ; end if; end do: # R. J. Mathar, Jan 27 2011
MATHEMATICA
Transpose[Select[Partition[Prime[Range[600]], 2, 1], PrimeQ[FromDigits[ Flatten[ IntegerDigits/@Reverse[#]]]]&]][[1]] (* Harvey P. Dale, Feb 02 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Jan 27 2011
STATUS
approved