OFFSET
1,1
COMMENTS
Leading zeros are forbidden (cf. A073176).
MATHEMATICA
ndpQ[n_] := First[n] != 0 && PrimeQ[FromDigits[n]]; With[{od=Flatten[ IntegerDigits/@ Range[1, 501, 2]]}, Table[ FromDigits/@ Select[Partition[ od, n, 1], ndpQ, 1], {n, 20}]]//Flatten (* Harvey P. Dale, Feb 12 2013 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
EXTENSIONS
Corrected and extended by Harvey P. Dale, Feb 12 2013
STATUS
approved