OFFSET
1,1
FORMULA
A068690 \ {2}. - R. J. Mathar, Nov 01 2009
MAPLE
nodds := proc(n) local dgs, d; dgs := convert(n, base, 10) ; add(d mod 2, d=dgs) ; end: isA154764 := proc(n) RETURN( isprime(n) and ( nodds(n) = 1 ) ) ; end; for n from 1 to 400 do p := ithprime(n) ; if isA154764(p) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Jan 18 2009
MATHEMATICA
Select[Prime[Range[350]], Length[Select[IntegerDigits[#], OddQ]] == 1 &] (* Harvey P. Dale, Jan 06 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009
EXTENSIONS
263, 269, etc. inserted by R. J. Mathar, Jan 18 2009
STATUS
approved