The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A142061

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

A142061

Primes congruent to 20 mod 33.
(history; published version)

#12 by Charles R Greathouse IV at Thu Sep 08 08:45:35 EDT 2022

PROG

(MAGMAMagma) [p: p in PrimesUpTo(8000) | p mod 33 eq 20 ]; // Vincenzo Librandi, Aug 18 2012

Discussion

Thu Sep 08

08:45

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

#11 by Charles R Greathouse IV at Sat Jul 02 01:05:42 EDT 2016

STATUS

editing

approved

#10 by Charles R Greathouse IV at Sat Jul 02 01:05:30 EDT 2016

FORMULA

a(n) ~ 20n log n. - Charles R Greathouse IV, Jul 02 2016

PROG

(PARI) is(n)=isprime(n) && n%33==20 \\ Charles R Greathouse IV, Jul 02 2016

STATUS

approved

editing

#9 by Charles R Greathouse IV at Thu Nov 21 13:07:23 EST 2013

MATHEMATICA

Select[Range[20, 20000, 33], PrimeQ] (* From _Vladimir Joseph Stephan Orlovsky, _, Jun 25 2011 *)

Discussion

Thu Nov 21

13:07

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

#8 by Joerg Arndt at Sat Aug 18 09:36:11 EDT 2012

STATUS

proposed

approved

#7 by Vincenzo Librandi at Sat Aug 18 06:16:30 EDT 2012

STATUS

editing

proposed

#6 by Vincenzo Librandi at Sat Aug 18 06:16:24 EDT 2012

LINKS

Vincenzo Librandi, <a href="/A142061/b142061.txt">Table of n, a(n) for n = 1..1000</a>

MATHEMATICA

Select[Prime[Range[3000]], MemberQ[{20}, Mod[#, 33]]&] (* Vincenzo Librandi, Aug 18 2012 *)

PROG

(MAGMA) [p: p in PrimesUpTo(8000) | p mod 33 eq 20 ]; // Vincenzo Librandi, Aug 18 2012

CROSSREFS

Cf. A000040.

KEYWORD

nonn,easy

STATUS

approved

editing

#5 by Russ Cox at Fri Mar 30 16:50:54 EDT 2012

AUTHOR

_N. J. A. Sloane (njas(AT)research.att.com), _, Jul 11 2008

Discussion

Fri Mar 30

16:50

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

#4 by T. D. Noe at Sat Jun 25 15:03:18 EDT 2011

STATUS

proposed

approved

#3 by Vladimir Joseph Stephan Orlovsky at Sat Jun 25 12:45:05 EDT 2011

MATHEMATICA

Select[Range[20, 20000, 33], PrimeQ] (* From Vladimir Joseph Stephan Orlovsky, Jun 25 2011 *)

STATUS

approved

proposed