The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A155055

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A155055

Primes without positive even digits.
(history; published version)

#11 by Jon E. Schoenfield at Sat Jan 12 20:50:06 EST 2019

STATUS

editing

approved

#10 by Jon E. Schoenfield at Sat Jan 12 20:50:02 EST 2019

MAPLE

a := proc (n) if `subset`(convert(convert(ithprime(n), base, 10), set), {0, 1, 3, 5, 7, 9}) = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 150); [From _# _Emeric Deutsch_, Jan 25 2009]

STATUS

approved

editing

#9 by Harvey P. Dale at Sat Jan 24 12:36:38 EST 2015

STATUS

editing

approved

#8 by Harvey P. Dale at Sat Jan 24 12:36:32 EST 2015

MATHEMATICA

Select[Prime[Range[200]], Intersection[IntegerDigits[#], {2, 4, 6, 8}]=={}&] (* Harvey P. Dale, Jan 24 2015 *)

STATUS

approved

editing

#7 by T. D. Noe at Thu May 23 15:01:48 EDT 2013

STATUS

proposed

approved

#6 by Jayanta Basu at Thu May 23 13:48:22 EDT 2013

STATUS

editing

proposed

#5 by Jayanta Basu at Thu May 23 13:48:15 EDT 2013

MATHEMATICA

peQ[n_]:=Select[IntegerDigits[n], EvenQ[#] && #>0 &]=={}; Select[Prime[Range[135]], peQ[#] &] (* Jayanta Basu, May 23 2013 *)

STATUS

approved

editing

#4 by Russ Cox at Fri Mar 30 18:52:32 EDT 2012

AUTHOR

_Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), _, Jan 19 2009

Discussion

Fri Mar 30

18:52

OEIS Server: https://oeis.org/edit/global/257

#3 by Russ Cox at Fri Mar 30 17:36:22 EDT 2012

MAPLE

a := proc (n) if `subset`(convert(convert(ithprime(n), base, 10), set), {0, 1, 3, 5, 7, 9}) = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 150); [From _Emeric Deutsch (deutsch(AT)duke.poly.edu), _, Jan 25 2009]

Discussion

Fri Mar 30

17:36

OEIS Server: https://oeis.org/edit/global/173

#2 by Russ Cox at Fri Mar 30 17:33:59 EDT 2012

EXTENSIONS

Definition corrected by _Omar E. Pol (info(AT)polprimos.com), _, Jan 27 2009

Discussion

Fri Mar 30

17:33

OEIS Server: https://oeis.org/edit/global/157