OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[FromDigits[Flatten[IntegerDigits[n+Range[-2, 2]]]], {n, 2, 500}], PrimeQ] (* Jayanta Basu, May 24 2013 *)
Select[FromDigits[Flatten[IntegerDigits[#]]]&/@Partition[Range[600], 5, 1], PrimeQ] (* Harvey P. Dale, Nov 11 2014 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Jun 27 2003
STATUS
approved