OFFSET
1,1
COMMENTS
See A096525 for the actual primes.
MATHEMATICA
Select[Range[1000], PrimeQ[FromDigits[Join[IntegerDigits[#], {0}, IntegerDigits[ #]]]+1]&] (* Harvey P. Dale, Nov 17 2014 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 23 2004
STATUS
approved