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