OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..37
MATHEMATICA
Select[FromDigits/@Flatten[Table[Join[PadLeft[{n}, i, n], {1}], {i, 100}, {n, 2, 9, 2}], 1], PrimeQ] (* Vincenzo Librandi, Dec 12 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 05 2003
EXTENSIONS
More terms from Ray Chandler, Nov 07 2003
STATUS
approved