This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A154764 #17 Jan 07 2019 04:21:26
%S A154764 3,5,7,23,29,41,43,47,61,67,83,89,223,227,229,241,263,269,281,283,401,
%T A154764 409,421,443,449,461,463,467,487,601,607,641,643,647,661,683,809,821,
%U A154764 823,827,829,863,881,883,887,2003,2027,2029,2063,2069,2081,2083,2087
%N A154764 Primes with exactly one odd decimal digit.
%F A154764 A068690 \ {2}. - _R. J. Mathar_, Nov 01 2009
%p A154764 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
%t A154764 Select[Prime[Range[350]], Length[Select[IntegerDigits[#], OddQ]] == 1 &] (* _Harvey P. Dale_, Jan 06 2011 *)
%Y A154764 Cf. A068690.
%K A154764 nonn,base
%O A154764 1,1
%A A154764 _Juri-Stepan Gerasimov_, Jan 15 2009
%E A154764 263, 269, etc. inserted by _R. J. Mathar_, Jan 18 2009